#!/usr/local/bin/perl
use strict;
use warnings;

my $sandboxxml = do {
    open(my $fh, '<', $ARGV[0]) || die("sandbox xml file cannot be loaded;check for file name or existance");
    local $/; # Slurp
    <$fh>;
};