use Device::ParallelPort::drv::win32;
use Device::ParallelPort;
my $port = Device::ParallelPort->new('auto:0');
$port->set_bit(3,1);
print $port->get_bit(3) . "\n";
print ord($port->get_byte(0)) . "\n";
$port->set_byte(0, chr(255));