RosettaCodeData/Task/Assertions/Perl/assertions-2.pl

3 lines
114 B
Perl

open my $fh, '<', 'file'
or die "Cannot open file: $!\n"; # $! contains the error message from the last error