Select Code to Download

Here's a test to make sure that the data contains nothing
but "word" characters (alphabetics, numerics, and under-
scores), a hyphen, an at sign, or a dot.
...
    } else {
        die "Bad data in $data";        # log this somewhere
    }

#!/usr/bin/perl -wT

package Parent;
...

$isa = "Child";
print "(isa) ", ($isa->isa("Parent") ? "Untainted" : "Tainted"), "\n";

Type in something: blah
(qx)  Untainted
(isa) Tainted