Select Code to Download

 1:50 >perl -MBio::AlignIO -wE "my $out = Bio::AlignIO->new(-file => '
+X.fasta', -format => 'fasta');"

...
-----------------------------------------------------------

 1:51 >

use Cwd;
printf "Current working directory: '%s'\n", getcwd;
printf "Fasta file to read:        '%s'\n", $array[3];