Select Code to Download

print "'hash{key}' is a hash reference\n" if ref(\%{$hash{key}}) eq 'H
+ASH';

#!/usr/local/bin/perl5.6.0
use strict;
...
        print qq{Found a leaf in an hole! [$leaf]\n};
    }
}