#/usr/local/bin/perl
sub sn{
  param('p1', 'v1');
  param('p2', 'v2');...}