Select Code to Download

            my $buf = <$client>;
            chomp $buf;
            print $buf;

while (my @ready = $sel->can_read) {
        foreach $client (@ready) {