Select Code to Download

{
    local $0 = 'my program';
...
}
print $0;     # Back to the old values.
system 'ps';  # ditto