my $detail = ""; $detail = join("", $detail, "perl LGE.pl " ); $detail = join("", $detail, "--target $target ") if defined $target; $detail = join("", $detail, "--port $portnum ") if defined $portnum; $detail = join("", $detail, "--interval $interval ") if defined $interval; $detail = join("", $detail, "--protocol $protocol ") if defined $protocol; $detail = join("", $detail, "--source $prmlist ") if defined $prmlist; $detail = join("", $detail, "--start"); my $command = qx($detail);