suse 5.010;

say 4711;

die if $ARGV[0] !~ /^\d+$/;
eval qq(#line $ARGV[0] !??.pl
warn 'ooohhh noooo!';);

say "42 is a lonely number";