Select Code to Download

#######the server##############################
#!/usr/bin/perl -w
...
 }
    }
}

########the client######################
<code>
...
    print $sock $text, "\n";
}