script.pl --start 'Dec 31 23:59'
####
use strict;
use warnings;
use Date::Parse;
use Date::Calc qw/Localtime/;
my $startDateTime = 'Dec 31 23:59:';
my $addMinutes = 2;
my $year = ( Localtime(time) )[0];
$startDateTime .= '00 ' . $year;
my $startSeconds = str2time($startDateTime);
my $endSeconds = $startSeconds + $addMinutes * 60;
print "\$startSeconds: $startSeconds; \$endSeconds: $endSeconds; Delta: "
. ( $endSeconds - $startSeconds );
##
##
$startSeconds: 1357027140; $endSeconds: 1357027260; Delta: 120