sub Sleep ( $ ) {
  my $Seconds = $_[0];  # Stone age sub's
  my  $I = 1;

  print "Sleeping for $Seconds seconds ... ";
  until( $I > $Seconds ){
    print "$I ";
    sleep ( 1 ); # sleep for X seconds
    $I += 1;
  }   
  print "done\n";
}