use strict;
use Data::Dumper;

my %somehash;
open DATA, "$ARGV[0]" or die "$!";
  {
      local $/;
      my $code = <DATA>;

      my $VAR1 = eval $code;
      if($@) {
        die "eval: $@\n";
      }
      %somehash  = %$VAR1;
  }
print Dumper(\%somehash);