#!/usr/bin/perl -w

use Device::ParallelPort;

my $port = Device::ParallelPort->new('linux');

if($port){
 print "Bit 0: ".$port->get_bit(1)."\n";
 $port->set_bit(1,  0);
 print "Bit 0: ".$port->get_bit(1)."\n";
} else {
 die "Errore sul driver\n";
}