print(ctime(time)."\n"); my ($year,$month,$day,$hour,$min,$sec) = Time_to_Date([time]); print $sec";