Select Code to Download

#!/usr/bin/perl -Tw
use strict;
use CGI qw(:standard *table );
...
} else {
    print "realm: $realm is not tainted in main0<P>";
}