use File::Spec;

my $myPlace = cwd();
my $filename = File::Spec->catfile( $myPlace,'test.xls' ); 

print -e $filename ? "$filename existiert!\n" : "$filename existiert nicht!\n";