use strict;
use warnings;
use Date::Parse;

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

print sprintf "%.2f", ( str2time($end) - str2time($start) ) / 3600;