#!/usr/bin/perl -w 
#
use Time::Local ;
#
my $sec1   = '01' ;
my $min1   = '00' ;
my $hour1  = '00' ;
my $day1   =  '24' ;
my $mon1   =  '02' ;
my $year1  = '2005' ;
my $TIME1  = undef ;
my $date1  = undef ;
#
my $tm    = undef ;
my $now   = time ;
#
my $sec2   = '01' ;
my $min2   = '00' ;
my $hour2  = '00' ;
my $day2   =  '25' ;
my $mon2   =  '02' ;
my $year2  = '2005' ;
my $TIME2  = undef ;
my $date2  = undef ;
#
print "\n\tTimestamp test begins\n" ;
#
$TIME1 = timegm($sec1,$min1,$hour1,$day1,$mon1,$year1)  ;
#
print "\n\tTimestamp1 :: $TIME1\n" ;
#
($sec1,$min1,$hour1,$day1,$mon1,$year1) = gmtime($TIME1)  ;
print "\n\tDay  :: $day1" ;
print "\n\tMon  :: $mon1" ;
$year1 += 1900 ;
print "\n\tYear :: $year1\n" ;
#
print "\n\tDATE1 :: $year1\/$mon1\/$day1\n" ;
#
$TIME2 = timegm($sec2,$min2,$hour2,$day2,$mon2,$year2)  ; 
#
print "\n\tTimestamp2 :: $TIME2\n" ;
#
($sec2,$min2,$hour2,$day2,$mon2,$year2) = gmtime($TIME2)  ;
print "\n\tDay  :: $day2" ;
print "\n\tMon  :: $mon2" ;
$year2 += 1900 ;
print "\n\tYear :: $year2\n" ;
#
print "\n\tDATE2 :: $year2\/$mon2\/$day2\n" ;
#
my $dif = $TIME2 - $TIME1 ;
my $days = ($dif / (60 * 60 * 24)) ;
#
print "\n\tThe difference is :: $days\n" ;
#
print "\n\tTimestamp test ends\n" ;