# $port is a Device::SerialPort object
$port->read(1);