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

    print $conn `my_script_insrtruction`;
}