modem->is_active() 
returned active,

($ok, $answer) = $modem->dial('mynumber',5);  # dial phone number
print "ok=$ok, answer=$answer\n";