First thing, don't use `date` to get the information you need.

#!/usr/local/bin/perl
@day = localtime(time() + 86400);
$stamp = sprintf("%4d%02d%02d", $day[5] + 1900, $day[4] + 1, $day[3]);
print $stamp;
[download]

localtime() and Time::Local are useful functions to convert times between formats. sprintf() can be used to pad variables.

One thing to note is that locatime returns years as number since 1900 and months are an array that starts at 0. Using this you don't have to worry about month/year changes since localtime takes care of it for you.

JK