Select Code to Download

#!/usr/bin/perl

...
else {
  print "No match for '$head'\n";
}

my $map = XMLin($file, forcearray => ['header', 'act'], keyattr => {})
+;

...
    }
  }
}

unless ($config = $xs1->XMLin($file, forcearray => 1)) {
    print "Could NOT read $file IN:$!\n";
    exit();
}