open($handle, "perl -c script.pl 2>\&1 |")