use stricter qw(taint);
use foo qw(frob);
use bar qw(clam);
my $blah = frob("something");
clam($blah);