#!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++) {
printf "%x%x%x",ord('a'),ord('b'),ord('c');
}

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

print "$start $finish";