my $client = accept( SESSION, SOCK );

##</code><code>##

while( $newmessage = <SESSION> ){
   #do something
}

##</code><code>##

print SESSION "Here is your reply\n";