#/usr/bin/perl -w
#gethtml.pl : HTML fetch and return. 28 AUG 2000              

use Socket;
use strict;

sub gethtml {
my $my_url = ($_[0]);
my $my_host='';
my $my_request='';
my $my_html_return='';   
($my_host, $my_url) = ($my_url =~ m#(.*?)/(.*)#);
$my_request = "GET \/$my_url HTTP/1.0\nAccept: */*\nHost: $my_host\nUser-Agent: WebMangle/1.0\n\n";
socket(MY_SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || return "Error: $!";       
connect(MY_SOCKET, sockaddr_in(80,inet_aton($my_host))) || return "Error: $!";        
send(MY_SOCKET, $my_request, 0x0);
while(<MY_SOCKET>) {$my_html_return .= $_;}                 
close MY_SOCKET || return "Error: $!";      
return $my_html_return;
}
1;