use strict;
use Win32::SerialPort;
use Device::XBee::API;
use Data::Dumper;

my $rx;
my $serial_port_device = Win32::SerialPort->start ("tpj4.cfg") || die;

 my $api = Device::XBee::API->new( { fh => $serial_port_device } ) || die $!;
 if ( !$api->tx( { sh => 0, sl => 0 }, 'hello world!' ) {
     die "Transmit failed!";
 }
$rx = $api->rx();
 die Dumper($rx);