Select Code to Download

>perl -e"my $x=undef; $y++ if $x->{foo}; print $x"
HASH(0x15d56e0)

if ($x and $x->{foo} and $x->{foo}{bar} and exists $x->{foo}{bar}{baz}
+) {
}