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));