my($hour, $mday, $mon, $year) = (localtime)[2..5]; my @months = qw/jan feb mar apr may jun jul aug sep oct nov dec/; $mday-- if $hour < 9; printf "Location: http://www.userfriendly.org/cartoons/archives/%02d%s/%04d%02d%02d.html\n\n", $year%100, $months[$mon], $year+1900, $mon+1, $mday;