Select Code to Download

package TimeStamp;
#use strict;
...
}

1;

#!/usr/bin/perl
use strict;
...

print $ts2, "\n";
print $ts, "\n";

C:\>perl -w ts_test.pl 
Tue 10/29/02 20:07:48
...
Day 29 in the month of October, the year 2002AD
10/29/02
10/29/02 8:07:48 PM

C:\>perl -w ts_test.pl 
  
,  , 
Day  in the month of , the year AD