Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $config = XMLin($file);
print Dumper($config);
exit;

$VAR1 = {
          'LOGENTRY' => [
...
                          }
                        ]
        };