Help for this page

Select Code to Download


  1. or download this
     #server
#!/usr/bin/perl
use warnings;
...

$send_socket->recv($line, 80);
print $line;
  2. or download this
    #!/usr/bin/perl -w

...
}

print "END\n";