Select Code to Download

end
sleep 10
...
No commands have a syntax error.
All valid MQSC commands were processed.

   foreach my $line (<INPUT>) {
...
    my ($queue) = ($line =~ $match_queue);
    my ($rname) = ($line =~ $match_rname);
    my ($qmname) = ($line =~ $match_qmname);