use Capture::Tiny 'capture_stderr'; $_=capture_stderr{
    use strict; use warnings; use overload; our%D; sub quux { +undef }
+; sub
    quuuux { goto \&overload::constant } sub quuux { my $x = close STD
+IN; #
    overload::constant J => sub { 1 }; print quux; *quux = sub { "Hell
+o" };
    $x="William".tell STDIN and select($x+=1,undef,undef,0.1);%D=(q=>q
+uux()
    ,$x);$x=''.!!delete $D{$x};telldir(\*STDIN)or quuuux%D;%D=bless({}
+,$x);
    printf STDIN "%d",$x;last}sub quuuuux{quuux for 1;rewinddir$_ or l
+isten
    ($_,1)for\*STDIN;my$z=\(quux);substr($z,0,1)=quuuux integer=>$$z;q
+uuuux
    pack("C",-1)&"\x4B",sub{42};last}quuuuux for 1;%D = {};use Carp;ca
+rp","
};$f=substr($_,0,1),$s=substr($_,1,1),print lc($f eq"'"?$s:$f)for spli
+t/\n/
[download]

I have made one change to the original obfu: my %D; is now our%D;. This is to remove a warning message which otherwise “escapes” through the Capture::Tiny net. See Variable "%data" is not available and ikegami’s reply. But I don’t understand why this warning isn’t captured along with all the others?