my $tainted = <STDIN>;