Select Code to Download

$ perl -MTry::Tiny -MData::Dumper -e'my $e = do { package E; use overl
+oad q[""] => sub {""}, fallback=>1; bless [] }; try { die $e } catch 
+{ print Dumper($_ eq "") }'