$ perl -w
my $variable1;
map{eval(readline!open(!((*{!$_},$/)=\$_)))} "Library.pl";
print "$variable1\n";
__END__
SOME CALCULATION