@month = ( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");

dbmopen(vacsendees, ".vacation", 0);
while (($key,$val) = each %vacsendees) {
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                           gmtime(unpack('L',$val));
    print $key, ' = ', $mday, ' ', @month[$mon], ' ', $year, ' ', $hour,
$min, "\n";
}
dbmclose(vacsendees);