$w1 = open(fw1,"pgm1|");
...
$read_set->add($w1);