# perl -le 'print join "+",sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime)'
48+26+10+1+10+2008
# perl -MBenchmark -e '
sub A () { my @a = localtime; return ( @a[0..3],$a[4]+1,$a[5]+1900 ) }
sub B () { return sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime) }
timethese ($ARGV[0],{ A => \&A,B => \&B })' 1000000
Benchmark: timing 1000000 iterations of A, B...
A: 11 wallclock secs ( 6.95 usr + 5.17 sys = 12.12 CPU) @ 82508.25/s (n=1000000)
B: 12 wallclock secs ( 6.40 usr + 5.14 sys = 11.54 CPU) @ 86655.11/s (n=1000000)
#