This page last modified: Jun 30 2004
#!/usr/bin/perl
@date = localtime($ARGV[0]);
$hdate = sprintf ("%d-%2.2d-%2.2d", $date[5]+1900,$date[4]+1, $date[3]);
print "$hdate\n";
#!/usr/bin/perl
@date = localtime($ARGV[0]);
$hdate = sprintf ("%d-%2.2d-%2.2d", $date[5]+1900,$date[4]+1, $date[3]);
print "$hdate\n";