my $todayDate = system qq(date)

##</code><code>##

The current date is: 11/11/2009
Enter the new date: (mm-dd-yy)  $todayDate

##</code><code>##


my($sec,$min,$hr,$day,$month,$yr) = (localtime())[0..5];


##</code><code>##


my($sec,$min,$hr,$day,$month,$yr) = (gmtime())[0..5];