use DateTime;
use DateTime::Format::Strptime;

my $now = DateTime->now;

my $parser = DateTime::Format::Strptime->new(
    pattern => '%b %d %H:%M',
);
my $date = $parser->parse_datetime( 'Jan 30 14:21' );

my $diff = $now - $date;

# This is required to convert to seconds as per DateTime documentation.
my $seconds_diff = $now->clone->add_duration($diff)
                              ->subtract_datetime_absolute($now);
my $hours_diff = int( $seconds / 60 );