open (INPUT, "data") || die "couldn't open the file!";
open (OUTPUT, ">result.out") || die "couldn't open the file!";

   foreach $line (<INPUT>) {

        chomp $line;


if ( $line !~ /^\[.*\]/ ) {

     ($server, $queuem, $queue)= split(/:/, $line);


system qq(telnet -host $server -user mqadmin -passwd >> out);


                    }

   }
   close(OUTPUT);
   close(INPUT);