Select Code to Download

sub convert_raw_to_fasta {
    my $InFileName = shift;
...
    print $hu ">$maid\n$seq";
    close $hu or die $!;
}

sub blast_parse{
    my($maid,$maid_dir) = @_;
...
    system($command); 
    bl2seq_parse();
}

sub process_and_parse {
    my $command = shift;
...
    system($command); 
    bl2seq_parse();
}

sub blast_parse{
    my($maid,$maid_dir) = @_;
...
        "$maid_dir/" . $maid . "_bl2seq.out"
    );
}

# main task
initialize_frobnitz();
...

sub send_to_frobber {
    my $serial_port = ... etc ...