use strict;
use Device::ParallelPort;
use Device::ParallelPort::drv::auto;
my $pp = Device::ParallelPort->new("auto:1");