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