Auch macht mir das hier zu schaffen:
L <Device::ParallelPort::drv::win32>
my $port = Device::ParallelPort->new(lpt1.pl);
       $port->set_bit(3,1);
       || die "Can't open LPT1: $^E\n";  

Fehlermeldung:
Syntax error at line 1

mfg

Wulli\n\n

<!--EDIT|Wulli|1143576329-->