#com1 öffnen
use Win32::SerialPort;

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

$ob->baudrate(57600);
$ob->parity("none");
$ob->databits(8);
$ob->stopbits(1);

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

$ob->write_settings;

undef $ob;