my $Qin = new Thread::Queue;
my $Qout = new Thread::Queue;

my @pool = map{ 
                threads->new( \&telnet2Cli, $Qin, 'show version')->detach 
            } 1 .. 5;

my $running : shared = @pool;
$Qin->enqueue( @values );

sleep 1 while $running;

my @versionOuput = $Qout->dequeue;


##</code><code>##

sub telnet2Cli {
            require Net::Telnet::Cisco;
             
            my ($ServerQueue, $command) = @_;
            my @output = ();
            my $output = '';
            
            my $ResultQ = new Thread::Queue;
            my $Server = $ServerQueue->dequeue;
            
            my $session = Net::Telnet::Cisco->new(Host => $Server, input_log => "input.log.$Server");
            $session->login(Password => 'Password here'); 
            if ($session->enable("Password here")) {
                        $session->cmd("terminal length 0");
                        @output = $session->cmd($cmd);        
                        $output .= "@output";   
                        
                        print "Output about to be enqueued to ResultQ is $output\n";
                        $ResultQ->enqueue($output);
            } else {
                        warn "Cant enable: " . $session->errmsg;
            }
            $session->close;
            
            return $ResultQ;              
}