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 => 0) or (print "Unable to connect to $InboundParameters[1]\n", return $num);
					
	print "Connected with $InboundParameters[1]\n";
	print "done with thread $num\n";        
	return $num;
}