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