A timeout/pause function which will display how long the user needs to wait before the script continues

timeout.pl

#!/usr/bin/perl
$| = 1; 	# flush everything directly to the output buffer

timeout(10);

sub timeout
{
	my $wait = shift;
		
	for (my $i=$wait; $i > -1; $i--)
	{
		print STDOUT  "\rWaiting for $wait seconds, $i to go                     ";
		
		sleep(1);
	}
	
	
}