#!/usr/bin/perl

exit if fork;
my $dollar_0 = $0;

$0 = "$dollar_0 (first)";
sleep(4);

$0 = "$dollar_0 (second)";
sleep(4);

$0 = "$dollar_0 (third)";
sleep(4);