2 # various utilities which are exported globally
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
16 @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
20 my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
22 my $buf = sprintf "%02d%s%04d\@%02d:%02d:%02d", $mday, $month[$mon], $year, $hour, $min, $sec;