$ perl -T t3.pl 'default' is tainted: 0 $ perl -T t3.pl "foo" 'foo' is tainted: 1 $ perl -T t3.pl "" '' is tainted: 1