use Device::ParallelPort;
my $pp = Device::ParallelPort->new('auto:0');