Help me.

Here you go.

#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 2;
use HTML::Parser::Simple::Attributes;

my @attr = (
    'type="checkbox" disabled="disabled"',
    'type="checkbox"'
);

my($parser) = HTML::Parser::Simple::Attributes -> new;

$parser->parse ($attr[0]);
ok $parser->get ('disabled');
$parser->parse ($attr[1]);
ok !$parser->get ('disabled');
[download]