#! c:\perl\bin\perl
#com1 öffnen
use Win32::SerialPort;
$port="com2";
my $port = Win32::SerialPort->new ("COM2");
open("com2");
TIOCM_RTS;
TIOCM_DTR;
(com2, TIOCMBIS, NULL);