! system ( "perl", $perl_file, $comp, $warn_list_arg) or die "Program exit";