#!/usr/bin/perl

use strict;

use IO::Socket;
use URI;

my $location = shift || "http://openbox:1011/MW";

my $url      = new URI( $location );
my $host     = $url->host || "openbox";
my $port     = $url->port || 1011;
my $path     = $url->path || "/MW";

my $socket   = new IO::Socket::INET (PeerAddr => $host,
                                     PeerPort => $port,
                                     Proto    => 'tcp')
               or die "Cannot connect to the $host.\n";

$socket->autoflush (1);

my $hash = {
				name	=>	'sourcer',
				pass	=>	'unknown',
			};

print $socket  "POST $path HTTP/1.1","\n";
print $socket  "Host: $host","\n\n";

print $socket "hello this is a test sentence";

#print while (<$socket>);

$socket->close;