@array=readpipe 'ls 'directory'/'subdirectory'.*html' ; 

##</code><code>##

sort @array; 

##</code><code>##

@headings=('Title','Issue Date'); 
@rows=th(\@headings); 
foreach $n (@array) 
{ 
    open (HTMLFILE,$n); 
    $issue_date=""; 
    while (<HTMLFILE>) 
    { 
        if (m/<TITLE>(.+)<\/TITLE>/i){$title=$1}; 
        if (m/<o:Description>(.+)/o:Description>/i)
        {$issue_date=$1}; 
    } 
    close HTMLFILE; 
    push(@rows, td([$title,$issue_date]) 
} 
print 
table({width=>"100%",border=>"1",bordercolor=>"#d9dae6",cellspacing=>"1",cellpadding=>"1"},Tr({bgcolor=>"#97a5f0"},\@rows));