while(defined($buf = <$socket>)) {
   #Remove "last;" and  closing brace
   ##print ..statements..etc ...
 }  # Place Closing  brace AFTER print statements
 $socket->close();