my $gsm = new Device::Gsm( port => $variable ....