Writing a new test 

$port = Device::SerialPort->new($serial_dev)