#!/usr/bin/perl -w
use strict;
use Benchmark;
timethese(0, {
        sysdate =>      "chomp( my \$date = `date +\%Y\%m\%d` );",
        localtime       =>      'my ($day,$mon,$year)=(localtime(time))[3,4,5]; my $date=sprintf("%0d%02d%02d",$year+1900,$mon+1,$day);',
        });