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";

##</code><code>##

Global symbol "$cmd" requires explicit package name at ./check_req.pl line 213.
Global symbol "$cmdkill" requires explicit package name at ./check_req.pl line 214.