Help for this page
# in Serial.pm our $port; ... print "Response num char; ".length($response)."\n"; Serial::port->close();
# in Serial.pm use Exporter 'import'; ... use Serial 'Serial_Init'; Serial_Init();