my ( $ss, $mm, $hh, $mday, $mon, $year, $wday, $yday, $isdst ) = 
  localtime();
my $data = sprintf( "%d-%02d-%02d %02d:%02d",
   ( $year += 1900, $mon += 1, $mday, $hh, $mm ) );