my $script = "./script1.pl";

open(SCRIPT1, "$script|") || die "Can't run '$script': $!\n";
while(<SCRIPT1>) {
    $results[0]{result} .= $_;
}
close(SCRIPT1);