#!perl -T
use strict;
use warnings;
use Test::More;
use Test::Taint;

my $foo = "ababab";
taint($foo);
tainted_ok($foo, "foo is tainted");
($foo) = keys %{{$foo,0}};
untainted_ok($foo, "foo is now untainted");

done_testing;