#!/usr/local/bin/perl

use Time::Local;

# months start at 0
# years have 1900 subtracted:

###time=timelocal($sec, $min, $hours, $day, $mon, $year)
$time1=timelocal(30, 20, 18, , 2, 7, 106);
$time2=timelocal(45, 15, 12, , 4, 7, 106);

$time3=$time2-$time1;

print "$time3 difference in seconds\n";