my $date = `date +%Y-%m-%d_%H:%M`;
chomp $data;

##</code><code>##

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 ) );

##</code><code>##

use POSIX 'strftime';
my $date = strftime '%x %X.', localtime;