#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $file='Dumper.xml'; # <= ist aber keine XML Datei!
my $data=load_dump($file);
print Dumper($data);

sub load_dump
{
  my $file=shift;
  return do($file);
}