use strict;
use warnings;
use XML::Twig;

my $xml = q{<timeLimit endTime="2016-12-28T23:59:59" startTime="2016-09-30T00:00:00"></timeLimit>};

my $t = XML::Twig->new(
    twig_handlers => {
        timeLimit => sub {
            my $atts = $_->atts;
            foreach (keys %$atts) {
                /^(?:start|end)Time$/ && do {print "$_ => $atts->{$_}\n"; next;};
            }
        },
    },
);

$t->parse($xml);