home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / slowcat < prev    next >
Encoding:
Text File  |  1991-07-15  |  183 b   |  12 lines
  1. #!/usr/bin/perl
  2.  
  3. $DELAY = ($ARGV[0] =~ /^-(\d+)/) ? (shift,$1) : 10;
  4. $| = 1;
  5.  
  6. while (<>) {
  7.     foreach (split(//)) {
  8.         print;
  9.         for ($i = 0; $i < $DELAY; $i++) {}
  10.     }
  11. }
  12.