Select Code to Download

my ($day,$mon,$year)=(localtime(time))[3,4,5];
my $date=sprintf("%0d%02d%02d",$year+1900,$mon+1,$day);

#!/usr/bin/perl -w
use strict;
...
        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);',
        });