use Date::Calc qw(Delta_YMDHMS);

($day1,$month1,$year1,$hour1,$min1,$sec1) = &getMeanTime;
($day2,$month2,$year2,$hour2,$min2,$sec2) = &getMeanTime;

($D_y,$D_m,$D_d, $Dh,$Dm,$Ds) = Delta_YMDHMS($year1,$month1,$day1, $hour1,$min1,$sec1, $year2,$month2,$day2, $hour2,$min2,$sec2);
print sprintf("%02d", $D_d).'/'.sprintf("%02d", $D_m).'/'.sprintf("%04d", $D_y).' '.sprintf("%02d", $Dh).':'.sprintf("%02d", $Dm).':'.sprintf("%02d", $Ds);

sub getMeanTime
        {
        my $time = time;

        my ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = gmtime($time);

        $Year+=1900; $Month+=1;
        return $Day,$Month,$Year,$Hour,$Minute,$Second;
        
        }