#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;
use Time::Seconds;

my $date1 = "2014/01/25 23:11:14";
my $date2 = "2014/01/26 00:30:37";
my $format = '%Y/%m/%d %H:%M:%S';

my $t0 = Time::Piece->strptime($date1, $format);
my $t1 = Time::Piece->strptime($date2, $format);

my $diff = $t1 - $t0;

my $mins = int $diff->minutes;
my $secs = $diff - $mins * 60;

print "Minutes: $mins";
print "Seconds: $secs";