package Wrapper;
{
    local $/ = undef;
    open PROGRAM, shift or die "Can't open $prog: $!";
    $Wrapper::code = <PROGRAM>;
    close PROGRAM;
}
eval 'package main; ' . $Wrapper::code;
die $@ if $@;