#!/usr/bin/perl

use strict;
use LWP::Socket;

print "In Perl Script... Sending message now\n";

my $socket = new LWP::Socket;
$socket->connect('192.168.5.26', 843); # echo

	my $quote = "<FRAME><MESSAGE VAR=\"TestVariable\" TEXT=\"ValueOFVairable\"/></FRAME>\0";


$socket->write("$quote\n");
$socket = undef;  # close