Select Code to Download

#!/usr/bin/perl

...
    }
     print "unfold_hash ", $_[1] ? scalar %{$_[1]} : 0, "\n";
}

unfold_hash 3
$VAR1 = {
...
          'status' => 'ok',
          'message-type' => 'member'
        };