Select Code to Download

my $line = <$sock>;

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

sub sendCommands{

...
   }

}