Help for this page

Select Code to Download


  1. or download this
    if (<$sock>) {
     print;
}
  2. or download this
    while (<$sock>) {
     print;
}
  3. or download this
    while (<$sock>) {
     print $sock $request;
     print;
}
  4. or download this
    use strict;
use IO::Socket;
...
    }
}
}