$ perl -T test_taint.pl Foo::Bar
47.11

$ perl -T test_taint.pl Foo::..::Bar
'untaint' fehlgeschlagen.

$