#!/usr/bin/perl -w
use strict;
use Win32::SerialPort;

my $serial = Win32::SerialPort->new('COM4'  || die "Fehler!");

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

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

$serial->baudrate(9600);
$serial->parity('none');
$serial->databits(8);
$serial->stopbits(1);
$serial->handshake("none");

#$serial->read_interval(100); # Zeit Zwischen einzelnen Zeichen, bei Überschreitung Abbruch 
#$serial->read_const_time(10000); # Maximale Gesamtzeit zum Einlesen von Zeichen, dann Abbruch

 # Send request
#$serial->write("n");
 # Wait one second
#select(undef, undef, undef, 1);

 # Read response
my($count, $datas) = $serial->read(100); # Entweder 100 Zeichen einlesen, oder Zeitaus
print "-> $datas";
undef $serial;