use strict;
use warnings;
use XML::Simple;
my $x = XMLin('./test.xml');

##</code><code>##

use strict;
use warnings;
use XML::Simple;
use POE::Component::Jabber::XMPP;
my $x = XMLin('./test.xml');