my $port = Device::ParallelPort->new('linux');