use Time::Format qw(%time);

my $string = $time{'Day-Mon-yyyy-dd-hh-mm-ss'};
print $string;