Select Code to Download

$ perl -wle 'use Data::Dumper; use DateTime; my $dt = DateTime::->now(
+); print Dumper($dt); print $dt->dmy . q{ } .$dt->hms'
$VAR1 = bless( {
...
               }, 'DateTime' );

01-02-2012 12:26:23