#! C:\Perl\bin\perl

use Device::ParallelPort::drv::win32;

$port="lpt1";

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

$port->set_bit(1,1); #TX ein

$port->set_bit(0,1); #Key