use IO::Socket;
<P>
my $userpass=password;
my $enapass=drowssap;
                                                                                
my @list=("$userpass", "ena", "$enapass", "show server virtual", "exit", "exit"); 
                                                                                
my $foundry = new IO::Socket::INET ("loadbalancer:23")
   or die "Couldn't connect to loadbalancer!!!: $@";
                                                                                
foreach $item (@list){
        print $foundry "$item\n";
        my $response = <$foundry>;
        print $response;
        }                                                                                
exit 1;