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