print "5. tainted\n" if tainted($bar);
print "6. tainted\n" if tainted("the $foo");