#!/usr/local/bin/perl
unshift @INC, './lib';
my(@useLib)=('LWP', 'Jcode', 'strict', 'vars', 'CGI');
my $inst, $res;
$inst=0;
print "Content-type: text/html\n\n";
print "
Ver 2004/05/07
\n";
for $libName(@useLib){
$res=eval("require $libName");
print "Library:$libName=[$res]
\n";
$inst += $res;
}
print "
inst = $inst, ";
if( $inst == 5 ){
print "OK";
}else{
print "NG";
}
print "\n";