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