i want to parse the answer from a modem then count how many times the dial was successful or the line was idle or not.

modem->is_active() 
returned active,

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

i met two problem at this line, one is the timeout setting did not work, after 5 second the phone was still ringing. another problem is $ok and $answer was empty. nothing was print out.

the i tried sending AT command and failed either

$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";
[download]

i got follwing on the screen

answer is ATD38813453
answer1 is 1
[download]

could you tell me which part i did wrong ? thank you so much.

20030525 Edit by Corion: Fixed formatting and changed title from "Device::Modom question, could not get the return, please help"