#!/usr/bin/env perl
require 'qpid_proton.pm';
my $messenger = qpid::proton::Messenger->new();
$messenger->set_outgoing_window(10);
my $message = qpid::proton::Message->new();

my $address = $ARGV[0];
$address = "0.0.0.0" if !defined $address;
$message->set_address($address);
# how do we set properties and body?

$messenger->start();
my $tracker = $messenger->put($message);
print "Put: $message\n";
$messenger->send();
print "Status: ", $messenger->status($tracker), "\n";
$messenger->stop();