# entered directly into the browser.  May contain typos
# and assumes you have LWP::Simple installed

# getting all comments to a URL

use HTML::TokeParser::Simple 3.13;
my $parser = HTML::TokeParser::Simple->new(url => shift);
while (my $token = $parser->get_token) {
  print $token->as_is if $token->is_comment;
}