Select Code to Download

my $time = do {
    my ($s,$m,$h,$D,$M,$Y)=localtime;
    $Y+=1900;
    $M++;
    "$Y-$M-$D $h:$m:$s" };