Basic Typing Simulator

				
=**************************************
= Name: Basic Typing Simulator
= Description:Print text to the screen slowly, like a person typing.
= By: John Winger
=
= Assumes:The key is to turn off the output buffering.
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=625&lngWId=6=for details.=**************************************

#!/usr/bin/perl
use strict;
srand( time ^ ($$ + ($$ << 15)) );
## turn off output buffering
$| = 1;
## http://www.homestarrunner.com/sbemail64.html
my $type_this = qq~
"A Well Thought-Out Englilsh Paper"
by: Kyle "The Yellow Dart" Smith
Since maybe like the Middle Ages, there have been many
differing opinions about hustle and bustle. This cannot
be denied. It is my intention to sit down and play
video games for several hours...
~;
foreach my $char (split //, $type_this)
{
	print $char;
	pause();
}
sub pause
{
	## adjust the number in rand() to create
	## appropriate pause lengths on your system
	## 900000 works pretty well for my 1.6GHz P4
	my $cnt_max = rand(900000);
	for (1 .. $cnt_max) { }
}