Select Code to Download

use Protocol::Modbus;

...

# Pretty-print response on stdout
print $res . "\n";   # Modbus Response PDU(......)

use strict;
use MBclient;
...
# clean exit
$m->close();
exit 0;