modem->is_active() 
returned active,

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

##</code><code>##

$answer1=$modem->atsend( 'ATD38813453');
print "answer is ";
print $modem->answer();
print "\n";
print "answer1 is $answer1\n";
print "\n";
print "at command was sent\n";

##</code><code>##

answer is ATD38813453
answer1 is 1