# com1 konfigurieren

require 5.003;

use Win32::SerialPort qw( :STAT 0.19 );

$PortObj = new Win32::SerialPort ($com1)
       || die "Can't open $com1: $^E\n";   

$PortObj = start Win32::SerialPort ($ser1)
       || die "Can't start $ser1: $^E\n"; 
       
   $PortObj->baudrate(57600);
   $PortObj->parity("none");
   $PortObj->databits(8);
   $PortObj->stopbits(2);