use Date::Manip::Date; 
my $d = Date::Manip::Date->new("2011-11-21 12:50:31.550"); 
my $e = $d->new("2011-11-21 08:49:16.000"); 
my $i = $e->calc($d); 
print $i->printf("%hys hours\n");