#!perl -w use strict; use SelfLoader; test(); exit(0); __DATA__ sub test { use Test::More tests => 1; my $dna1 = "AGCT"; my $dna2 = "GATC"; is( $dna1, "AGCT", "Test of the test"); }