#!/usr/bin/perl

use Device::ParallelPort;
my $port = Device::ParallelPort->new();
       $port->set_bit(3,1);
       print $port->get_bit(3) . "\n";

       print ord($port->get_byte(0)) . "\n";
       $port->set_byte(0, chr(255));