Select Code to Download

my $p = new XML::Parser (Handlers => {Start => \&hdl_start(@arr), etc}
+);

use strict;
use XML::Parser;
...
}

sub hdl_def { }