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