use Acme::Time::Asparagus qw(veggietime);
  print veggietime();
[download]

Heh...or maybe you should try something like this:

  #!/usr/bin/perl
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(ti
+me);
  $yy = sprintf("%02d", $year % 100);
  $str = $yy . join('', map(sprintf("%02d", $_), $mon, $mday, $hour, $
+min, $sec));
  print $str, "\n";
[download]

Although I'd recommend using the 4-digit form of the year, obtainable above as $yyyy = $year += 1900

Matt