#!/usr/bin/perl

# plan.pl
# Joel Uckelman (uckelman@nomic.net)
# 21 February 2001

require 5.005;

my ($sec, $min, $hour, $mday, $month, $year, $wday) = (gmtime(((stat '../.plan')[9])))[0 .. 6];

printf "%s %02d %s %4d %02d:%02d:%02d UTC", ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat')[$wday], $mday, ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$month], $year + 1900, $hour, $min, $sec;

