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

# Dummy handle damit der Typeglob funktioniert
my $com = IO::Handle->new;
# und damit funktioniert der Typeglocb
*COM = $com;

my $PortObj = tie *COM, 'Win32::SerialPort', 'd:/home/dev/comport3.cfg' or die $@;

# Modem abfragen
my $out = "ATQ0V1E0".pack "C", 13;
print COM $out;

my ($BlockingFlags, $InBytes, $OutBytes, $LatchErrorFlags) = 
  $PortObj->status() or die "can't get status";
print Dumper $PortObj->read($InBytes);