in reply to Perl progname

Not really. If someone went to the trouble of screwing $0, then they might also delete or mv the script as well. rename or unlink on $0 are both possible.