my $line = <$sock>;

##</code><code>##

while ( my $line = <$sock> ) { #more stuff }

##</code><code>##

sub sendCommands{

   if (@_) {


      print $sock "$_[0]\r\n"; #$sock is a socket to the server
      my $line = <$sock>;
      print "Client: $_[0]\r\nServer: $line" if $DEBUG;
      my @values = split(/ /,$line);
      return @values if ( $line )

   }

}