#!/usr/bin/perl
use Data::Dumper;
$filename = shift;
open FILE, $filename;
$data = eval join '', <FILE>;
print Dumper $data;