sub make_connection_to_job_controller($){
	my($con_id) = @_;
	$job_controller_connection = new Win32::API('rlqs','rlqs_sender_connect',[P],'I');
	if(not defined $job_controller_connection){
		die "\nCan't import API job_controller_connection: $!\n";
	} 
	$return_value_connect = $job_controller_connection->Call($con_id);
	if(!$return_value_connect){
		die "\nSomething went wrong with connection.\nHere are the values for return_value=
		$return_value\n";
	} 
	else{
		print"\nSeems that the connection is made.\n";
		print$return_value_connect;
		return $return_value;
	}
}#end of make_connection_to_job_controller


##</code><code>##

my $test=&make_connection_to_job_controller($connection);