#!/usr/bin/perl -l

use strict;
use warnings;
use Protocol::Modbus;

$|=1;

my $modbus = Protocol::Modbus->new(
    driver    => 'TCP',
    transport => 'TCP',
);

my $trs = Protocol::Modbus::Transport->new(
    driver  => 'TCP',
    address => '192.168.0.57',
    port    => 502,
    timeout => 3,
);

my $req = $modbus->request(
    function => 4,
    address  => 1,
    quantity => 75,
    value    => 0x0000,
);
print "=" x 60;
print "Response: ", $req;
print "=" x 60;
$trs->disconnect;