123
print(ctime(time)."\n");my ($year,$month,$day,$hour,$min,$sec) = Time_to_Date([time]);print $sec";
perl -MDate::Calc -e '$,=" "; print @{[Date::Calc::Time_to_Date()]}, "\n", qx"date", "\n"'