if (open(my $handle, '<', 'filename.txt')) {
   # success
} else {
   # failure
   die "can't open 'filename.txt' for reading: $!";
}