- or download this
#!/usr/bin/perl
use strict;
...
print $line;
}
close SOCKET or die "close: $!";
- or download this
POST /quotes.cgi HTTP/1.0
Host: localhost
...
<title>403 Forbidden</title>
<h1>403 Forbidden</h1>
- or download this
while ($conn = $self->accept) {
my $rq = $conn->get_request;
...
$conn->close;
$conn = undef; # close connection
}
- or download this
#!/usr/bin/perl
use strict;
...
print $line;
}
close SOCKET or die "close: $!";
- or download this
POST /RPC2 HTTP/1.0
Host: localhost
...
<param><value><double>5.24</double></value></param>
</params>
</methodResponse>