1. my $loop     = 1;
   2. my $iterator = 1;
   3. $loop          = $ARGV[0] if defined $ARGV[0];
   4. for( ; $iterator <= $loop ; $iterator++ )  {
   5.     sleep( 1 );
   6.     print "$iterator($$)...\n";
   7. }