use warnings; use strict; 
use XML::Twig; 
my $tw = XML::Twig->new; 
$tw->parsefile_html($ARGV[0]); 
for my $t ($tw->findnodes("//link")) { 
    if ("stylesheet" eq lc($t->att("rel"))) { 
        warn "found stylesheet: ", $t->att("href"); 
    } 
}