Erm... Skimming the docs, Aren't you supposed to do something like

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

updated: fixed link