Select Code to Download

#!/usr/bin/perl
exit main();
...
    my $line = (caller(0))[2];
    print "line " , $line , ": " , $error , "\n";
}

-bash:perl$ perl caller.pl
line 6: test1
line 7: test2
line 8: test3