use strict;
use Data::Dumper;
my $file = q{alpha.txt};
my $class;
open my $fh, "<", $file or die "Unable to open: $!";
eval do { local $/; <$fh> };
die $@ if $@;
close $fh or die "Unable to close: $!";
print Dumper $class;