===================================
#!/usr/bin/perl -w

use strict;

print "Begin...\n";
for ( my $i = 0; $i < 5; $i++ )
{
        print "$i...\n";
        sleep 2;
}
===================================