use Time::Local
 my $x=localtime; print "\n","\n", $x;
    print "\n","\n";
    
system("date");
system("date -s "2 June 2010 18:00:00"");