use warnings;
use strict;

use Data::Dumper;
use Date::Manip;

my $beginning = 'Thu Oct 25 17:37:58 2007';
my $end       = 'Fri Oct 26 06:54:09 2007';

my $begin_date = ParseDate( $beginning );
print "From: $begin_date\n";

my $end_date   = ParseDate( $end );
print "To: $end_date\n";

my $error;
my $delta      = DateCalc( $begin_date, $end_date, \$error);

my $seconds = int( Delta_Format( $delta, 0, '%st' ) );
print "The number of seconds counted is $seconds seconds\n";