use strict; use warnings; use overload; my %D; sub quux { +undef }; su
+b
quuuux { goto \&overload::constant } sub quuux { my $x = close STDIN; 
+#
overload::constant J => sub { 1 }; print quux; *quux = sub { "Hello" }
+;
$x="William".tell STDIN and select($x+=1,undef,undef,0.1);%D=(q=>quux(
+)
,$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 liste
+n
($_,1)for\*STDIN;my$z=\(quux);substr($z,0,1)=quuuux integer=>$$z;quuuu
+x
pack("C",-1)&"\x4B",sub{42};last}quuuuux for 1;%D = {};use Carp;carp",
+"
[download]