http://localhost/script.cgi/=

##</code><code>##

GET qr{^/=$} => sub {
	print $q->header('text/html');
	print $q->h1('REST API Documentation');
	print $q->p('Here is a list of what you can do:');

##</code><code>##

my $regex = qr{^/=$};
my $coderef = sub {
	print $q->header('text/html');
	# etc.
};
GET( $regex, $coderef );

##</code><code>##

$code->();
exit;

##</code><code>##

GET qr{^/=/model/book/id/([\d-]+)$} => sub {
	my $id = $1;
	# etc.

##</code><code>##

http://localhost/script.cgi/=/model/book/id/10566