my $tainted = <STDIN>;

##</code><code>##

my $stillTainted = pack 'a*', $tainted;

##</code><code>##

open my $fh, '>', $stillTainted or die $!;