use strict; use MBclient; my $m = MBclient->new(); # define server target $m->host("localhost"); $m->unit_id(1); # read 16 bits register from ad 0 to 9 my $words = $m->read_holding_registers(4100, 40); # First 40 Register of MidNight Charger # print words foreach my $word (@$words) { print $word."\n"; } # clean exit $m->close(); exit 0;