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

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

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