Select Code to Download

perl -ne '$|=1; foreach $_ (split //) {print; select(undef,undef,undef
+,0.01);}' [filenames...]

#!/usr/bin/perl -w
# slowprint.pl, by Weyfour WWWWolf (Urpo Lankinen)
...
        select(undef,undef,undef,0.01);
   }
}