If you are on a Linux system you might try Device::SerialPort. The interface is largely the same as Win32::SerialPort, implemented via a combination of Linux and POSIX functions.

$PortObj = new Win32::SerialPort ($PortName, $quiet)
       || die "Can't open $PortName: $^E\n";
$PortObj->handshake("rts");
[download]