while(<$new_sock>) {
        $msg=$_;    
}