#!/usr/bin/perl

use strict;
use warnings; 
use Device::ParallelPort; 
use Device::ParallelPort::drv::parport;

my $parport = Device::ParallelPort->new;
$parport->set_bit(3, 1);
print $parport->get_bit(3), "\n",
ord($parport->get_byte(0)), "\n",
ord($parport->get_byte(1)), "\n",
ord($parport->get_byte(2)), "\n";