POSIX::strftime is your friend.

use strict;
use warnings;
use POSIX 'strftime';

print strftime '%Y/%m/%d - %I:%M:%S %P', localtime;
print "\n";
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg