my $fh = open_file("<", $file, $verbose); my $class; eval do { local $/; <$fh> }; die $@ if $@; close $fh; return $class; #### $class = { big => "hashref" }; #### $class = { alpha => 'beta', gamma => 'delta', epsilon => 'zeta', }; #### 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; #### $VAR1 = { 'gamma' => 'delta', 'epsilon' => 'zeta', 'alpha' => 'beta' }; #### use strict; use Data::Dumper; our $class; my $file = q{alpha.txt}; require $file; print Dumper $class;