use POSIX qw(strftime);

my $filedate = strftime("%Y%m%d", localtime(time() + 86400));