Select Code to Download

sub do_stuff
{
...
      my $cgi  = shift || new CGI ();
       ...
}

[matt@dirty matt]$ ./test_arg_passing.pl
Benchmark: timing 2000000 iterations of 
...
shifty_3args: 23 wallclock secs 
(23.91 usr +  0.01 sys = 23.92 CPU) @ 83612.04/s (n=2000000)
total: 42000000

#!/usr/bin/perl -w

...
);

print "total: " . $object->value . "\n";