use strict;
use warnings;

my $iter = 1000000;         #number of items 
my $string ='';             #our string
my $teststring='abcdefghijklmnopqrstuvwxyz1234567890'; #what to grow the string

#Comment out this line to speed things up under windows.
#$string = 1 x ($iter* length($teststring));
Time();
$string='';
for (1..$iter) {
  $string.=$teststring;
}
Time();

print "Finished\n";
sleep(2000);

sub Time {
 my ($user,$system,$cuser,$csystem) = times;
 print "$user,$system\n";
}