perl -e'print "Wed Sep 14 23:22:59 EDT 2005\n";my @ti=split(/\s+/,scalar localtime);my $year=pop(@ti);push(@ti,"EDT",$year);print join(" ",@ti),"\n"'

Wed Sep 14 23:22:59 EDT 2005
Mon Sep 26 21:01:16 EDT 2005