Fecha de hoy y en tres días más
#!/usr/bin/perl
use POSIX qw/ strftime /;
$hoy= strftime "%Y-%m-%d_00:00:00",localtime;
$siguiente= strftime "%Y-%m-%d_00:00:00",localtime(time + 86400 * 3);
print "$hoy\n";
print "$siguiente\n";
Fecha de hoy y en tres días más
#!/usr/bin/perl
use POSIX qw/ strftime /;
$hoy= strftime "%Y-%m-%d_00:00:00",localtime;
$siguiente= strftime "%Y-%m-%d_00:00:00",localtime(time + 86400 * 3);
print "$hoy\n";
print "$siguiente\n";