RosettaCodeData/Task/Assertions/Perl/assertions.pl

2 lines
110 B
Perl

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