print $q->p (
    "This is a paragraph including a link: ",
    $q->a({href=>"http://perlmonks.org/index.pl?node_id=623101"},"Sample link"),
    " to the node containing this sample."
    );