#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use WWW::Mechanize::TreeBuilder;

my $mech = WWW::Mechanize->new();
WWW::Mechanize::TreeBuilder->meta->apply($mech);
$mech->get("http://millercenter.org/president/clinton/oralhistory/roger-altman");

# find all <dl> tags
my @list = $mech->find('dl');

foreach ( @list ) {
print $_->as_HTML();
}