#!/usr/bin/perl
#
# Cause perl to incrementally realloc().

$temp = "";
$begin = time;
for ($i = 0; $i < 1000000; $i++) {
    $result .= "$i\n";
}
print "Exec time: ", time - $begin, " secs\n";
