s poslednim prikladem, nebo alespon s jeho komentarem. Pokud si uvedeny kod spustite, zjistite ze dva z uvedenych testu uspely a data jsou nakazena. Nevite vsak ktera to jsou. Namisto

print "nakaženo!\n" if is_tainted($data1);

bych tedy pouzil spise

print is_tainted($data1) ? "nakaženo!" : "ok", "\n";

Po teto modifikaci je z vystupu jiz jednoznacne videt, ze nakazena jsou data v prvnim a tretim pripade.

use Scalar::Util 'tainted';
tainted $var;