hshimamoto

#!/usr/bin/env perl
# vim:set sw=2 sts=2:

# parse
# key = params
#  KEY = { P1, P2, {P3} }
sub parse_param {
  my $param = shift;
  my $s = '';
  my $out = '';