use IPC::Open3;
my $pid = open3(\*IN, \*OUT, \*OUT, 'perl', '-c', 'script.pl') or die $!;
close IN;
my $error = <OUT>;
unless ($error =~ /OK/)
{ $error .= $_ while(<OUT>);
  close OUT,
  croak $error;
}
close OUT;
# wenn ich hierher komme, geht ein Start von script.pl nicht schief