Select Code to Download

    my $fh = open_file("<", $file, $verbose);
    my $class;
...

    close $fh;
    return $class;

$class = {  big => "hashref" };

$class = {
    alpha      => 'beta',
    gamma   => 'delta',
    epsilon   => 'zeta',
};

use strict;
use Data::Dumper;
...
die $@ if $@;
close $fh or die "Unable to close: $!";
print Dumper $class;

$VAR1 = {
          'gamma' => 'delta',
          'epsilon' => 'zeta',
          'alpha' => 'beta'
        };

use strict;
use Data::Dumper;
...
my $file = q{alpha.txt};
require $file;
print Dumper $class;