my $cmd=" perl C:\\ia\\getset_build_num.pl -mode get -p $outputname -t $build_num_template -c $build_num_config";

##</code><code>##

  if ($mode eq "get") {
     my ($bld_num,$message)= get_build_number($package,$config_file);
	return $bld_num;
	
  }else{
    my ($set_status,$message) = set_build_number($package,$template,$config_file);
	return ($set_status,$message);
  }