use Time::Local qw( timegm );
use POSIX qw( strftime );
my $date = timegm(localtime);
$date += 24*60*60;
print(strftime("%Y%m%d\n", gmtime($date)));