Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (9 sloc) 207 Bytes
use strict;
use warnings;
my $file = shift || die "Must specify a filename\n";
my $content = do { open my $fh, '<', $file or die; local $/; <$fh>; };
my $data;
{
no strict;
$data = eval $content;
}
Something went wrong with that request. Please try again.