Untitled Document

#!"C:\xampp\perl\bin\perl.exe" use Socket; use CGI; use CGI::Carp 'fatalsToBrowser'; $cgi = CGI->new(); print "Content-Type: text/html\n\n"; my $hostname = $cgi->param('host'); my $port = 80; my $proto = getprotobyname('tcp'); my($socket); socket($socket, AF_INET, SOCK_STREAM, $proto) or die $!; my $inet = inet_aton($hostname) or die $!; my $dest = sockaddr_in($port, $inet); if ($dest) { connect($socket, $dest) or die $!; print "CONNECTED TO $hostname ON PORT $port\n"; } close($socket); exit(0); print < Untitled Document START_HTML