use strict;

use POSIX;
use File::Basename;
use Time::Local;

......
......
my $start_time = scalar localtime;
my $start = time();

......
......
my $end_time = scalar localtime;
my $end = time();
#my $end_timelocal = timelocal($sec, $min, $hour, $mday, $mon, $year);
print "end_time ==> $end_time"   . "\n";
#print "end_timelocal ==> $end_timelocal"   . "\n";

my $diff = $end - $start;