#!/usr/bin/perl -w

use strict;
use CGI;

main();

sub main () {
    my $q = CGI->new();
    print $q->header();

    print "\@INC is '@INC'<br>\n";

    foreach( @INC ) {
	print ( is_tainted($_) ? "<font color=red>TAINTED: " : "<font color=green>OK: " );
	print "'$_'</font><br>\n";
    }
}



sub is_tainted {
    not eval {
	join("", @_), kill 0;
	1;
    };
}