#! perl -w

report("Hello, world!");

sub report {
    my ($package, $filename, $line) = caller;
    print "print from $filename line $line: @_\n";
}