use HTML::Parse;

while(1) {
    parse_html('');

    system "ps -p $$ -o rss,vsz";
    sleep 1;
}