Snakke med GSM modem over seriel port

Jeg ved mit spørgsmål tager udgangspunkt i Perl, men naturen af spørgsmålet kunne ligeså godt have været et andet programmeringssprog - derfor under denne kategori.

Hej Eksperter,

Jeg har et GSM modem koblet til min PC via seriel porten. Jeg vil så gerne have et Perl script til at sende SMSer via det modem.

Jeg kan godt få det til at virke gennem Hyperterminalen ( kører på en windows NT maskine ).
Ved hyperterminalen gør jeg følgende:

1: Opretter forbindelse til GSM modemet
2: Skriver AT+CMGF = 1 [trykker enter]
3: Modemet svarer "OK"
4: Skriver AT+CMGS = "+45********" (hvor stjernene er mobilnummeret) [trykker enter]
5: Modemet svarer med en ny linie der starter med et større-end tegn >
6: Ved større end tegnet skriver jeg min besked og afslutter med at trykke CTRL-Z
7: Modemet svarer "OK"
8: Beskeden dukker op på mobiltelefonen

Jeg vil nu gerne gøre det samme via. et perlscript ved brug af Win32::SerialPort.
Mit script ser indtil videre således ud (telefonnummer igen udskiftet med stjerner) Har tilføjet linienumre for at kunne kommentere senere:
***********************************************
1: use Win32::SerialPort;

2:  $ob = Win32::SerialPort->new ('COM1');
3:  die "Can't open serial port $port: $^E\n" unless ($ob);


4:  print 'AT+CMGF = 1...';
5:  $ob->write('AT+CMGF = 1' . chr(13));
6:  print getInput();
7:  print 'AT+CMGS = "+45********"...';
8:  $ob->write('AT+CMGS = "+45******"' . chr(13));
9:  print getInput();
10: undef $ob;

11: sub getInput(){
12:    my $input;
13:        do{
14:          sleep 1;
15:          $input = $ob->input;
16:        } until( $input ne "" );       
17:        return $input;
18: }
***********************************************
Når jeg kører scriptet får jeg følgende output:

AT+CMGF = 1...
OK
AT+CMGS = "45********"...
>

Jeg er nu kommet så langt som punkt 5 i hyperterminalbeskrivelsen ovenfor, men her sidder jeg fast. Hvordan svarer jeg igen på > tegnet?

Jeg har prøvet at give hele kommandoen med sammen med telefonnummeret sådan her:
8:  $ob->write('AT+CMGS = "+45******"' . chr(13) . 'her er min besked' . chr(26) );

Dette giver et "ERROR" svar fra modemet ved linie 9

Jeg har også prøvet at tilføje flgn. efter linie 9:
$ob->write('her er min besked' . chr(26));
print getInput();

Her går programmet i undelig løkke da der aldrig kommer det forventede "OK" svar tilbage fra modemet.



Nogen der kan hjælpe?

PFT
/Yellow