use Time::Piece;

my $tp = localtime;
print $tp->strftime("%d%b%y:%H:%M:%S");