use subs 'fork';

while( 1 )
{
  $me = fork();
  print "$me\n";
}

sub fork{ '*click*' }