|
|
|
@ -3,7 +3,9 @@
|
|
|
|
use IO::Socket::INET;
|
|
|
|
use IO::Socket::INET;
|
|
|
|
|
|
|
|
|
|
|
|
$num_args = $#ARGV + 1;
|
|
|
|
$num_args = $#ARGV + 1;
|
|
|
|
if ($num_args == 0) {
|
|
|
|
if ( ($num_args == 0) or
|
|
|
|
|
|
|
|
(($num_args == 1) && (($ARGV[0] eq "--help") or ($ARGV[0] eq "-h"))) )
|
|
|
|
|
|
|
|
{
|
|
|
|
showusage();
|
|
|
|
showusage();
|
|
|
|
exit;
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
@ -45,9 +47,12 @@ shutdown($socket, 1);
|
|
|
|
|
|
|
|
|
|
|
|
# receive a response of up to 10MB
|
|
|
|
# receive a response of up to 10MB
|
|
|
|
my $response = "";
|
|
|
|
my $response = "";
|
|
|
|
$socket->recv($response, 1024*1024*10);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
print $response;
|
|
|
|
do {
|
|
|
|
|
|
|
|
$response = "";
|
|
|
|
|
|
|
|
$socket->recv($response, 1024*1024*10);
|
|
|
|
|
|
|
|
print $response;
|
|
|
|
|
|
|
|
} while ( not $response eq "");
|
|
|
|
|
|
|
|
|
|
|
|
$socket->close();
|
|
|
|
$socket->close();
|
|
|
|
|
|
|
|
|
|
|
|
|