#!/usr/bin/perl -w
my $pid = fork;
exit if $pid;
$0 = "a";
sleep 60;