#!/usr/bin/perl

use vars qw(
	    $data $len $pData $ua $req $res
	   );
           (
	    $data, $len, $pData, $ua, $req, $res
           ) = ();


use strict;
use LWP::UserAgent;

# Create data string, and will eventually be encrypted, but later

  $data = "BlowfishedRealData";


# Retrieve length of data string

  $len = length($data);

# Creating data - Part 2
  $pData = "ID=Test&Len=".$len."&Data=".$data;


# Sending the data
  $ua = LWP::UserAgent->new;

$req=HTTP::Request->new(POST => 'http://www.receiver.com/hello.aspx',
		    Host => 'www.receiver.com',
		    Connection => 'Close',
		    Content-type => 'application/x-www-form-urlencoded',
		    Content => [ Data => [$pData] ]
  			   );

  $res = $ua->request($req);

  if ($res->is_success) {
      print $res->as_string;
    } else {
      print "Failed: ", $res->status_line, "\n";
    }