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

------------- EXCEPTION: Bio::Root::Exception -------------
MSG: Could not read file 'X.fasta': No such file or directory
STACK: Error::throw
STACK: Bio::Root::Root::throw C:/Perl/Strawberry/strawberry-perl-5.20.0.1-64bit-PDL/perl/site/lib/Bio/Root/Root.pm:449
STACK: Bio::Root::IO::_initialize_io C:/Perl/Strawberry/strawberry-perl-5.20.0.1-64bit-PDL/perl/site/lib/Bio/Root/IO.pm:270
STACK: Bio::AlignIO::_initialize C:/Perl/Strawberry/strawberry-perl-5.20.0.1-64bit-PDL/perl/site/lib/Bio/AlignIO.pm:401
STACK: Bio::AlignIO::new C:/Perl/Strawberry/strawberry-perl-5.20.0.1-64bit-PDL/perl/site/lib/Bio/AlignIO.pm:311
STACK: Bio::AlignIO::new C:/Perl/Strawberry/strawberry-perl-5.20.0.1-64bit-PDL/perl/site/lib/Bio/AlignIO.pm:332
STACK: -e:1
-----------------------------------------------------------

 1:51 >

##</code><code>##

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