Language Basics Perl

$! = 1;
print "$!\n";
print "Error number " , 0 + $! , " occurred.";