#!perl

use strict;
use CGI;

my $q = new CGI;

my $uname = $q->cookie('username');
my $pwd = $q->cookie('password');

my $com = 'env QUERY_STRING=username='.$uname.'\;password='.$pwd.' /usr/bin/custom_auth_tool';

print "Content-Type: text/plain\n\n",
      "Command:\n$com\n\n";

open(WEBOS,"$com|");
$com = join('', <WEBOS>);
close(WEBOS);

print "Result:\n$com\n\n";