use Device::ParallelPort;
my $port = Device::ParallelPort->new("win32:lpt1");