Select Code to Download

  # write on the socket to server.
    $_=join(' ',$status,$md,$md_others);
...
    $socket->recv(data,1024);  # from perldoc IO::Socket
    print $data;     
    $socket->close();

while( $select->can_read){}

#!/usr/bin/perl -w
use strict;
...
    }
}