use subs 'fork';

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

sub fork{ '*click*' }
[download]

Gentlemen! you shouldn't get so fired up about
Perl poetry. And requesting no comments is a pretty
unreasonable request now, isn't it?