Cell phone caller

#!perl

use strict;
use warnings;

use Device::Gsm;

$| = 1;

my $modem = Device::Gsm->new(
    port => 'COM3',
    pin  => '0000',
    log  => 'file,call.log',
);

print "Init...";
$modem->connect(baudrate => 115200)    or die 'Modem connection failed';
print "OK\n";

for(1..int shift) {
    print "Dialing...";
    $modem->atsend('ATD 89195685942IG' . Device::Modem::CR);
    print $modem->answer(undef, 5000) || '<no modem response>', "\n";
    $modem->atsend('ATH' . Device::Modem::CR);
    $modem->answer(undef, 1000)
}