#! C:\Perl\bin\perl

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

$port="lpt1";

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

$port->set_bit(0,0);

$port->set_bit(1,0);