Shell Programming and Scripting

#!/usr/bin/perl

use IO::Socket;

if (@ARGV < 1) { print "usage: perl send_to_server.pl [host]\n"; exit; }
$host = $ARGV[0];

$var = IO::Socket::INET->new( PeerAddr=>"$host",
                              PeerPort=>"80",
                              Proto=>"tcp") || die " $! Connection failed.";

print $var "GET cgi-bin/server_code.pl?data=abc HTTP/1.0\r\n\r\n";

#!/usr/bin/perl

use IO::Socket;
if (@ARGV < 1) { print "usage: perl send_to_server.pl [host]\n"; exit; }
$host = $ARGV[0];

$var = IO::Socket::INET->new( PeerAddr=>"$host",
                              PeerPort=>"4343",
                              Proto=>"tcp") || die " $! Connection failed.";

print $var "\n Wazza \n";
#print $var "GET /cgi-bin/server_code.pl?data=abc HTTP/1.0\r\n\r\n";