@ARGV=split /\s+/, $warn_list_arg;
unshift @ARGV, $comp;

do $perl_file or die "Program Exit: $!\n";