package Wrapper; #To prevent interfering with the eval'ed Program
our ($code);
my $prog = shift;
open PROGRAM, $prog or die "Can't open $prog: $!";
{
    local $/;
    undef $/;
    $code = <PROGRAM>
}
close PROGRAM;
eval $code or die "$@";