my $twig = XML::Twig->new();
while (<$fh>) {
    $twig->parse($_);
    # ...
}