Perl Script to download complete web server response
Created: 25 January 2006 Modified:Originally published on chrislynch.info website.
use IO::Socket;
#$address = "ac0hxgapl01d.usarec.army.mil";
$address = "192.168.250.125";
$port = 80;
#$document = "GET /portal/dt/usaac/HQ/ISA/index.html HTTP/1.0\015\012\015\012";
$document = "GET /portal/dt/usaac/HQ/ISA/index.shtml HTTP/1.0\015\012\015\012";
$filename = "sindex.html";
#$filename = "rindex.html";
$socket = IO::Socket::INET->new
(
Proto => "tcp",
PeerAddr => $address,
PeerPort => $port,
) or die "couldn't connect to web server.";
$socket->autoflush(1);
print $socket $document;
open(FILEHANDLE, ">$filename") or die "Could not create file.";
while(<$socket>) {
print FILEHANDLE;
}
close(FILEAHANDLE);
close($socket);