Help for this page

Select Code to Download

Select or download this

use POSIX;

my $date = localtime( time + 86400 );
print POSIX::strftime( '%Y%m%d', $date ), "\n"