Select Code to Download

use Date::Calc qw(Delta_YMDHMS);

...
  my @t = gmtime;
  return ( $t[5]+1900, $t[4]+1, $t[3], @t[2..0] );  # (y, mon, day, h,
+ min, s)
}

use Date::Calc qw(Delta_YMDHMS Today_and_Now);

...
my @dt2 = Today_and_Now();
my @dt = Delta_YMDHMS( @dt1, @dt2 );
printf "%02d/%02d/%04d %02d:$02d:$02d", @dt[2,1,0, 3..5];