Select Code to Download

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

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

#! perl -w

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