it does not show html to browser. bt runs well in commandline
#!"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 <<START_HTML
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8" />
<title>Untitled Document</title>
</head>
<form method="post" action="">
<body>
<p>IP/HOSTNAME
<input type="text" name="host"/>
</p>
<p>
<input type="submit" name="button" value="Submit" />
</p>
</body>
</form>
</body>
</html>
START_HTML
