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
In reply to html not displaying by bigup401
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |