print "#/usr/local/bin/perl\n";
foreach (param()){
 print ("param('$_' , '", param($_), "'\n");}

##</code><code>##

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

##</code><code>##

DB<1> require "mydebugparam.pl"
DB<2> x param()

##</code><code>##

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

##</code><code>##

DB<1> require "mydebugparam.pl"
DB<2> sn()
DB<3> x param()