ACE/bin/cltime.pl

   1 use strict;
   2
   3 my($name)  = shift;
   4 my($email)  = shift;
   5 my($entry) = scalar(gmtime());
   6
   7 my($tz) = 'UTC';
   8 $entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$tz $3/;
   9
  10 $entry .= "  $name <$email>";
  11
  12 print $entry;