my ($sec,$min,$hour,$mday,$mon,$year,
     $wday,$yday,$isdst)=localtime(time);