perl -le 'print system(qw( test -e fileThatDoesNotExist ))'
256
perl -le 'print system(qw( test -e .profile ))'
0

##</code><code>##

open my $fh, qq(cat "$file" |)
    or die "Couldn't read '$file': $!";