Select Code to Download

while (1) {
    print "before accept\n";
...
    }
    print "finished checking can read\n";
}

use IO::Select;
use IO::Socket;
...
        }
    }    
}