require "subparseform.lib";
&Parse_Form;

print "Set-cookie: cart_id=1234; user_id=123;\n";   
print "Content-type: text/html\n\n";

use strict;
use CGI;

use Device::ParallelPort; 
# use Device::ParallelPort::drv::linux
# Set up your parallel port object and tell it what driver to use.
my $parport = Device::ParallelPort->new('auto:1');

# $parport->set_bit(0,1);
# $parport->set_bit(1, 1);
$parport->set_bit(2, 1);
$parport->set_bit(3, 1);
$parport->set_bit(4, 1);
$parport->set_bit(5, 1);
$parport->set_bit(6, 1);
$parport->set_bit(7, 1);