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