open(SCRIPT, "| perl $perl_file $comp")
    or die "can't run $perl_file: $!";

 print SCRIPT $warn_list_arg;

 close(SCRIPT)
   or die "can't close $perl_file: $!";