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

3 lines
114 B
Perl
Raw Permalink Normal View History

2014-01-17 05:32:22 +00:00
open my $fh, '<', 'file'
or die "Cannot open file: $!\n"; # $! contains the error message from the last error