关于Hyper Terminal在perl中的运用

在我的perl程序中，需要触发GSM MODEM实现短信的发送，通过XP中的Hyper Terminal（超级终端），对串口上的GSM MODEM进行控制，那应该如何在perl程序中，实现这个功能，应该用什么函数，结构来写呢？

Perl code

#! perl -w

use strict;
use Win32::SerialPort;

my $ob = Win32::SerialPort->new ('COM2') || die;

my $baud = $ob->baudrate;
my $parity = $ob->parity;
my $data = $ob->databits;
my $stop = $ob->stopbits;
my $hshake = $ob->handshake;

print "B = $baud, D = $data, S = $stop, P = $parity, 
            H = $hshake\n";

undef $ob; 

详见：http://www.foo.be/docs/tpj/issues/vol4_1/tpj0401-0020.html
hope this helps