sub sub1 
{        
	my @InboundParameters = @_;  
	my $num = $InboundParameters[0];
	print "started thread $num : Establishing connection with $InboundParameters[1]\n"; 
	my $host = $InboundParameters[2];
	my $sftp = Net::SFTP->new($host, user => $InboundParameters[3], password => $InboundParameters[4], debug => 1)
					or return ( { 'errors' => "Unable to connect to $host: " . $@, 'success' => 0 } );
	#$sftp->put("bar", "2345SD/baz");
	$sftp->do_mkdir("ftp2SAT5") or "Cannot make directory: $@" . $sftp->error;     
	print "done with thread $num\n";        
	return $num;
}