#!/usr/bin/perl -w
use strict;
use warnings;
use XML::Parser;
use XML::DOM;

my $output="contaning xml";
my $parser=XML::DOM::Parser->new;
    my $doc=$parser->parse($output);