#!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";

##</code><code>##

#!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";

##</code><code>##

my $time1 = `date '+%H:%M:%S'`;

##</code><code>##

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