use Time::Piece;
my $t = localtime;
print "Date1 is : ",$t->strftime("%d-%b-%Y"),"\n";
print "Date2 is : ",$t->strftime("%d-%m-%Y"),"\n";
print "Time1 is : ",$t->strftime("%H:%M:%S"),"\n";
print "Time2 is : ",$t->strftime("%I:%M:%S %p"),"\n";
__END__
Date1 is : 07-Okt-2017
Date2 is : 07-10-2017
Time1 is : 10:19:42
Time2 is : 10:19:42 
# - OR - under the en_US locale:
Date1 is : 07-Oct-2017
Date2 is : 07-10-2017
Time1 is : 10:19:42
Time2 is : 10:19:42 AM

##</code><code>##

use DateTime;
my $dt = DateTime->now(time_zone=>'local');
print "Date1 is : ",$dt->strftime("%d-%b-%Y"),"\n";
print "Date2 is : ",$dt->strftime("%d-%m-%Y"),"\n";
print "Time1 is : ",$dt->strftime("%H:%M:%S %Z"),"\n";
print "Time2 is : ",$dt->strftime("%I:%M:%S %p %Z"),"\n";
__END__
Date1 is : 07-Oct-2017
Date2 is : 07-10-2017
Time1 is : 10:19:42 CEST
Time2 is : 10:19:42 AM CEST