#!/usr/bin/perl 
use strict; 
use HTML::TokeParser; 
 
sub get_description { 
my $content; 
my $p = HTML::TokeParser->new($_[0]); 
while ( my $tag = $p->get_tag("meta") ) { 
 if ( defined( $tag->[1]{'name'} )) { 
    if($tag->[1]{'name'} eq "description") { 
         $content = $tag->[1]{'content'} 
               } 
        }; 
     } 
print "$content\n"; 
} 
 
get_description("index.html");