I don't have access to a box that doesn't support directly setting $0, but try this:

{
    local $0 = '/old/path/to/file.pl';
    print "$0\n"; #<-- your code here
}
[download]