Select Code to Download

#!/usr/bin/perl -w
use strict;
...

        return $num_match;
}

[snip others]
Can't locate object method "ATCGA" via package "ATCAA" 
(perhaps you forgot to load "ATCAA"?) at (eval 7) line 1.