#!/usr/bin/perl -w

use strict;
use LWP;
use HTTP::Request::Common;
use PDF::API2;
use Image::Info;
use File::Spec;

my $queryString;
my @queryString;

print "Content-type: text/html\n\n";
if ($ENV{'REQUEST_METHOD'} eq "POST")
        { read(STDIN, $queryString, $ENV{'CONTENT_LENGTH'});
        @queryString=split(/&/,$queryString);
        print @queryString;
        }