use strict;
use warnings;
use Benchmark;

sub stuff()
{
    my $x = 1000000;
    foreach my $i (1..$x)
    {
	print "."
    }
    print "\n";
}

my $t;
$t = timeit(1, \&stuff);
print "Timings: ", timestr($t), "\n";

##</code><code>##

use strict;
use warnings;
use Benchmark;

sub stuff($)
{
    my $x = shift;
    foreach my $i (1..$x)
    {
	print "."
    }
    print "\n";
}

my $t;
$t = timeit(1, \&stuff(1000000));
print "Timings: ", timestr($t), "\n";

##</code><code>##

Undefined subroutine &main::SCALAR called at (eval 2) line 1.