Select Code to Download

#!/usr/local/bin/perl

...
    if (ref($hashref) ne "HASH"){die "Expecting a hash ref got". ref($
+hashref);}
    print Dumper($hashref);
}