Shell Programming and Scripting

#!/usr/bin/perl

use CGI;
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 server_code.pl?data=abc HTTP/1.0\r\n\r\n";

#!/usr/bin/perl
open (FL,"/tmp/garric");
print FL "abcdefgh";
close (FL);

perl ./server_code.pl