#!/usr/bin/perl
use CGI;
my $request = CGI->new;
print $request->header;
print <<EOM;
CHECK/$ENV{'REMOTE_USER'}/$ENV{'REMOTE_PASSWD'}
EOM
exit;