Date: Thu, 19 Jul 2001 18:01:51 -0500 (CDT)
   From: Mark Jacobson <jacobson@math-cs.cns.uni.edu>
     To: 810-088-05@uni.edu
Subject: stars.pl sleep OUTPUT

[~/web/cgi-bin]$  perl stars.pl    <---- stars.pl code is shown below

 1: *
 2: **
 3: ***
 4: ****
 5: *****
 6: ******
 7: *******
 8: ********
 9: *********
10: **********
11: ***********
12: ************

That's all for now!

Bye bye!

[~/web/cgi-bin]$  cat stars.pl      <----- display star.pl on screen

  print "\n";
  for ($i = 1; $i <= 12; $i++)
  {
     $stars = "";
     for ($jj = 1; $jj <= $i; $jj++)
     {
        $stars = $stars . "*";
     }
     if ($i < 10) {
        print " ";
     }
     print "$i: $stars \n";
     sleep 1;
  }
  print "\nThat's all for now! \n\n";
  sleep 5;
  print "Bye bye! \n\n";
  --------------------------------------------