Help for this page

Select Code to Download


  1. or download this
    open2($socket,$socket, "cmd.exe");
  2. or download this
     
if (my $client = $server->accept( )) {
    open2($output,$input, "cmd /k");
...
        print $data, "\n";
    }
}
  3. or download this
    my $select = IO::Select->new( );
if (my $client = $server->accept( )) {
...
    $output->sysread($data, 10, 0);
    print $data, "\n";
}