($package, $filename, $line) = caller;

##</code><code>##

($package, $filename, $line, @blahblah) = caller(0);

##</code><code>##

#! perl -w

report("Hello, world!");

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