Select Code to Download

my $aref = [ 1..5 ];
bless $aref, 'HASH';
...
bless $href, 'Some::Package';
# This may not be ok
print "href is not a hash\n" unless ref($href) eq 'HASH';