} elsif ($conlist{fileno($rc)}{pcon}{type} eq 'prog') {
                #program stdin/out
                print STDERR "io to program not yet implemented\n";
                $cona->close;
                next;

            } elsif ($conlist{fileno($rc)}{pcon}{type} eq 'prog') {
                #read from file1, write to file2
                print STDERR "io to file not yet implemented\n";
                $cona->close;
                next;