#!/usr/bin/perl -T

sub is_tainted {
    return ! eval {
        join('',@_), kill 0;
        1;
    };
}

#---
# This should taint things for me
#---
my $taint = shift @ARGV;

my $clean = "clean";

my $expected = {
             clean => $clean,
             taint => $taint,
           };

my $wrong = {
             taint => $taint,
             clean => $clean,
           };

printf "\$expected %s tainted\n", is_tainted( $expected ) ? "is" : "isn't";
printf "\$expected->clean %s tainted\n",
        is_tainted( $expected->{clean} ) ? "is" : "isn't";
printf "\$expected->taint %s tainted\n",
        is_tainted( $expected->{taint} ) ? "is" : "isn't";

print "----------\n";

printf "\$wrong %s tainted\n", is_tainted( $wrong ) ? "is" : "isn't";
printf "\$wrong->clean %s tainted\n",
        is_tainted( $wrong->{clean} ) ? "is" : "isn't";
printf "\$wrong->taint %s tainted\n",
        is_tainted( $wrong->{taint} ) ? "is" : "isn't";