sub copymerge_functions_pm_init
{
   my $input = $_[0];
   my $type  = $_[1];
 
   &verify_function_params(2, "copymerge_functions_pm_init", $input, $type);    <-- 4 arguments

 
sub verify_function_params
{
 
   my $num = $_[0];
   my $function_name = $_[1];
   my $input =  $_[2];
   my $type = $_[3];
 
 
my $argument_size = scalar(@ARGV);
 
print "argument_size is $argument_size\n";