azz mi sa di aver appena capito l'inghippo... if($connection=~/RCV ON/){ open(FILE, ">$ne3"); print FILE $_; close(FILE); printf $sock "CLOSE\n"; last; giusto?=?? :|