Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my $fastafile= $open;
    print STDERR "selected file: $fastafile\n";
}