#!/usr/bin/perl -w
use strict ;

my $date eq localtime ;
print $date ;

##</code><code>##

Thu Aug 23 12:00:01 2001