# shell script:
perl myscript.pl $0

----

#perl script:

print "Called by: ", $ARGV[0], "\n";