http://www.perlmonks.org?node_id=360037

use POSIX qw(strftime); print strftime("The time is %H:%M\n", localtime);