$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";