Alternatively, without the Date::Calc module, simply add 86400, the number of seconds in a day, to the seconds since epoch returned by time - For example:

use POSIX;

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

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000111011"))'