Select Code to Download

sub get_file {    #to read from a file
    return <<SEQUENCE;            #return the string sequence

SEQUENCE
}

Reading a file...
Use of uninitialized value $record_type in hash element at noname1.pl 
+line 53.
...
Use of uninitialized value $record_type in hash element at noname1.pl 
+line 59.
Use of uninitialized value $seqres in split at noname1.pl line 194.
Use of uninitialized value $lastchain in hash element at noname1.pl li
+ne 222.

        next if $line !~ /\S/;

    return if ! defined $seqres || $seqres !~ /\S/;