# in Serial.pm
our $port;

# in test_Serialpm.pl
print "Response num char; ".length($response)."\n";

Serial::port->close();