Select Code to Download

my $ref = XMLin([<xml file or string>] [, <options>]);

    my $pid;

...
    open OUT, ">out";
    print OUT $_ for <DUMP>;
    close OUT;

    use XML::Simple;
    my $data = join '', <DUMP>;
    my $ref = XMLin($data);