#!/usr/bin/perl
use Device::ParallelPort;
use Device::ParallelPort::drv::linux;

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

$parport->set_byte(0, char(255));