Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $year = 987;
...
 if ($year !~ /\d{4}/) { die qq{Idiot!, use 4 digit year. Stopped '$!'
+} }
"
Idiot!, use 4 digit year. Stopped '' at -e line 1.