Select Code to Download

 
use Device::Modem;

...

$modem->dial('02270469012');  # dial phone number
#when program running at this line was halted

print " dial number was sent \n";