#!/usr/local/bin/perl  
datetime = localtime();  
print "Local Time of the System :datetime\n"; 

Local Time of the System : Fri Nov 15 07:21:05 2019

#!/usr/bin/perl
use DateTime;
  
# Creation of Timestamp
my datetime = DateTime->now;  
print "datetime\n";  

#!/usr/bin/perl
use DateTime; 
  
# Assigning values to variable
datetime = DateTime->new(  
    day        => 18,  
    month      => 7,  
    year       => 2003,  
    hour       => 12,
);  
  
print"datetime\n";  

#!/usr/local/bin/perl
  
# Using function gmtime()
datestring = gmtime();
  
# Printing GMT time
print "Date and time in GMT:datestring\n";

Date and time in GMT: Fri Nov 15 11:10:05 2019

#!/usr/local/bin/perl
  
# Assigning values to variables
(sec,min, hour) = localtime();
  
printf("Time Format - HH:MM:SS\n");
  
# Formatting the time representation
printf("%02d:%02d:%02d", 
        hour, min,sec);

Time Format - HH:MM:SS
11:38:06

#!/usr/local/bin/perl  
  
# Calculating epoch time
epoch = time();  
  
print "epoch\n";  

1573818532