L <Device::ParallelPort::drv::win32>
my $port = Device::ParallelPort->new(lpt1.pl);