{
    local $0 = 'my program';
    print $0;     # my program
    system 'ps';  # <- works even here, at least on my Linux box.
}
print $0;     # Back to the old values.
system 'ps';  # ditto