Select Code to Download

  use Acme::Time::Asparagus qw(veggietime);
  print veggietime();

  #!/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";