while (my $conn = $sock->accept()){

    print $conn `my_script_insrtruction`;
}

##</code><code>##

while ($buff ne 'end connection'){
    $client->recv($buff,1000);
    print $buff;
}