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