use subs "localtime"; sub localtime { @_ ? gmtime($_[0]) : gmtime() }; print localtime()."\n";