Salve a tutti,
ho la necessità di crerare uno scrip in perl che quando viene invocato apre la comunicazione con una com e invia ad un modem dei comandi AT ad esempio per far partire una chimata.
Essendo completamente a digiuno di Perl ho trovato su internet il seguente scrip bello e pronto:

codice:
#!/usr/bin/perl 
open(MODEM,"+</dev/ttyS0") or die "can't open tty device file: $!"; 
$number="01234567"; 
print MODEM "ATD'$number\'\015";
close(MODEM);
Lo scrip funziona però solo se prima di eseguirlo si è aperto un terminale come ad esempio Gtkterm o Minicom che si è occupato di aperire la comunicazione con il modem.

Come posso fare per aprire la comunicazione dentro lo scrip senza eseguire programmi esterni??

Sistema Operativo: Linux Debian Squeeze
Modem: cellulare SIEMENS C35i

Grazie a tutti