#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Date::Format;
use strict;

print header;
print start_html("Show Dates");

print "<pre>\n";

# 02/03/1999
print time2str("%m/%d/%Y\n", time);

# Wed, 03 Feb 99 12:23:55 CST
print time2str("%a, %d %h %y %X %Z\n", time);

# Wed, 03 Oct 1999 12:23:55 CST
print time2str("%a, %d %h %Y %X %Z\n", time);

# Wednesday, 03-Feb-99 08:49:37 CST
print time2str("%A, %d-%h-%y %X %Z\n", time);

# Wed Feb  3 08:49:37 1999   
print time2str("%a %b %e %X %Y\n", time);

# 03/Feb/1999 11:51:57 CST
print time2str("%d/%b/%Y %X %Z\n", time);

# Wednesday, February 2, 1999
print time2str("%A, %B %e, %Y\n", time);

print "</pre>\n";
print end_html;