sub run_it { 
    my $filename = shift;

    open my $in, $filename or die $!;
    local $/ = undef;
    my $entire_script = <$in>;
    close $in;

    eval $entire_script; die $@ if $@;
}