#!/usr/local/bin/perl

for ($i = 1; $i <= 6; $i++) {
        &sum(10 ** $i);
}

sub sum {
        local($limit) = @_;
        local(@startval, @stopval);
        local($i, $count);

        $count = 0;
        @startval = times();
        for ($i = 1; $i <= $limit; $i++) {
                $count += $i;
        }
        @stopval = times();
        print ("sum $limit: ", $stopval[0]-$startval[0],
              "\n");
}
