LOOP: while(accept()) {
... some code... 
if(wanna_exit()) {&end_request;}
}

sub end_request {local $^W = 0; next LOOP;}