use strict;
use warnings;
use Device::ParallelPort;

my $port = Device::ParallelPort->new('win32:0');
while (1)
  {
  # Datenport als Lauflicht
  # Steuerport ebenso
  # sieht komisch aus --> einige Bits invertiert
  for my $i (0 .. 7, 16 .. 19)
    {
    $port->set_bit($i,1);         # LED einschalten
    # 1/2 Sekunde warten (Trick!)
    select( undef, undef, undef, 0.5);
    $port->set_bit($i,0);         # LED ausschalten
    # 1/2 Sekunde warten (Trick!)
    select( undef, undef, undef, 0.5); 
    }
  }