#!/usr/bin/perl
exit main();

sub main
{
    print_error("test1");
    print_error("test2");
    print_error("test3");
    return 0;
}

sub print_error
{
    my ($error) = @_;
    my $line = (caller(0))[2];
    print "line " , $line , ": " , $error , "\n";
}