$ ls
$ perl -Mstrict -MIO::Tee -le 'my $tee=IO::Tee->new(">/dev/null"); open(FH, ">&", \*$tee)'
$ ls
IO::Tee=GLOB(0x8802e2c)
$ perl -e 'printf "%vd\n", $^V'
5.8.8