Select Code to Download

my $client = accept( SESSION, SOCK );

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

print SESSION "Here is your reply\n";