#!c:/perl/bin/perl -w

use strict;
use POSIX qw(strftime);
my $x;
my $maxint = 200000;
my $start = strftime "%H:%M:%S", localtime;

for ($x=0; $x <$maxint;$x++) {
print unpack "H*", "abc"
}

my $finish = strftime "%H:%M:%S", localtime;

print "$start $finish";