home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch1 / countdown < prev    next >
Encoding:
Text File  |  1992-10-18  |  265 b   |  9 lines
  1. #!/usr/bin/perl
  2. $countdown = 10;
  3. while ($countdown != 0) {    # While $countdown doesn't equal 0
  4.     print "$countdown...\n"; # Print time left.
  5.     sleep 1;                 # Wait one second.
  6.     --$countdown;            # Decrement $countdown.
  7. }
  8. print "BOOM!\n";
  9.