#!/usr/bin/perl

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;
# use Device::ParallelPort::drv::linux
# use Device::ParallelPort::drv::parport

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

print "It works!!!";