open FH, "|perl $perl_file $comp"); for (@warn_list) { print FH $_ . "\n"; } close FH;