Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
print "defined\n" if (exists($x->{fred}->{dave}));
print Dumper($x);
print "fred defined\n" if (exists($x->{fred}));