********************************************************
#script to ftp AI executables to different machines<br>
# Requirements Perl 5.8 or higher to support Thread

use Thread;
$thread0= Thread->new<br>(sendftp, "#HOST","#USER","#PASSWORD");

$_->join foreach ($thread0);
sendftp("#Host","#User","#Password");
sub sendftp {
$FileList="installServer.jar ";
$Temp1 = Thread->self->tid();
exec `sendftp.sh $_[0] $_[1] $_[2] `;
exit(0);
}