#!/usr/bin/perl

use strict;
use DateTime;

my $start = '2013/01/08 09:26:07';
my $end = '2013/04/11 20:19:12';

my @start_list = split /[ :\/]/, $start;
my @end_list   = split /[ :\/]/, $end;

my %start;
@start{qw[year month day hour minute second]} = @start_list;

my %end;
@end{qw[year month day hour minute second]} = @end_list;

my $start = DateTime->new(%start);
my $end   = DateTime->new(%end);