Select Code to Download

perl -e "sleep 1 and print qq($_ ) for 1..$ARGV[0]" 3
...
perl -e "$|++; sleep 1 and print qq($_ ) for 1..$ARGV[0]" 3
1 2 3

sub my_sleep {         # no prototype
  my $Seconds = shift;
...

  print "done\n"; 
}