Read the docs on localtime.

You can do this with perldoc -f localtime

You will (amongs a lot of very useful information) see an example of Abigail's suggestion (strftime):

use POSIX qw(strftime);
$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
[download]

Adapting this piece of code to your needs is left as an exercise.

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]