use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $xs = new XML::Simple();
my $ref = $xs->XMLin("./system.txt"); # Not an xml file.

if (not defined $ref) {
    print "Invalid content in file";
}
else  {
    print "\nHash dump:\n";
    print Dumper($ref);
}