sub handler {
    my ($r, $c) = @_;
    
    if ($r->method eq 'GET' and $r->url->path eq "/sample") {
        $c->send_basic_header(200);
        print $c "Content-Type: text/plain\015\012";
        $c->send_crlf;
        print $c "this is the expected text";    
    } else {
	    $c->send_error(404);
    }
}

1;