I would think that the eval should be (otherwise I wouldn't expect any error):

my $result = eval "use IO::Tee;";
die "Couldn't use IO::Tee: $@";
[download]

update: sorry I did not see the $@ in the line below your use statement until now