#!/usr/bin/perl

sleep 10;
{
    local $0 = 'changed';
    sleep 10;
}
sleep 10;