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

my $port = Device::ParallelPort->new('win32:0');
while (1)
  {
  # Statusport einlesen und invertierte Leitung
  # korrigieren, 3 Stellen nach rechts schieben
  my $x = (ord($port->get_status()) ^ 0x80) >> 3;
  # als Binaerzahl ausgeben
  printf("%05b\n", $x);
  # 1/2 Sekunde warten (Trick!)
  select( undef, undef, undef, 0.5);
  }