use Mojolicious::Lite;

  # Hit PerlMonks.  If a node ID is supplied, fetch it.
get '/*resource' => { resource => '' } => sub {
  my $self = shift;
  my $uri = "http://www.perlmonks.org/";
  my $resource = $self->stash('resource');
  $uri .= length $resource ? "?node_id=$resource" : '';
  $self->ua->get( $uri => sub {
    my ($ua, $tx) = @_;
    $self->render( text => $tx->res->dom->html );
  });
};

app->start;