sub print_content {
    `python content2.py`;
    
    print header;
    print start_html(-title=>'Strain entry',
	       -style=>{'src'=>'/Attempt_2.css', 'type'=>'text/css'});
    start_form(-action=>'forensics.cgi?button=pushed');
    print table({-'align'=>'left',-'border'=>'1', -'bordercolor'=>'CCCCCC', -'width'=>'45%', -'cellspacing'=>'0', -'cellpadding'=>'0'});
    
    opendir CACHE_DIR, $cache_dir or die "Cannot open $cache_dir: $!";
    my $file;
    foreach $file (readdir CACHE_DIR) {
        my $current_file = $file;
	next if ($file =~ /^\./);
	$file = "peregrine.local/cgi-bin/final/$cache_dir/$file";
        
        print Tr(td({-'bgcolor'=>'#D4E4F0'}, "<a href=http://$file>$current_file</a>")) ."\n";
    }
}