html not displaying

bigup401 has asked for the wisdom of the Perl Monks concerning the following question:

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
[download]

Comment on html not displaying Download Code

Replies are listed 'Best First'.
Re: html not displaying by hippo (Archbishop) on Dec 19, 2014 at 09:27 UTC
You `exit` before you `print`. Why is the `exit(0)` there if you actually want to print the HTML output? Supplementary: no strict? Why the low-level approach to connecting to the remote server?	[reply] [d/l] [select]