my $time = timelocal($sec,$min,$hhour,$day,$month,$year);