>>762
open(IN, "perl filter.pl file.txt|");
とかじゃ駄目?