Select Code to Download

## executor.pl
use Safe;
...
        print "Unsafe code detected: $@";
    }
}

    open(FILE,"perl executor.pl '$code' 2>&1 |")
    my @output=<FILE>;
    my $resp = join('',@output);