foreach $param ( @_ )
{
	print "param = $param\n";
}