my ($cmd, $cmdkill);
$cmd = qq{$path -qx $host $port $suser $password};   
$cmdkill = qq{$path -qx $host $port} };
open(PROC,"$cmd|") or die "failed to fork :$!\n";