Select Code to Download

    my $nowtime = localtime int($config{'time'});
    opendir THEDIR, "$config{'basepath'}$form{'category'}" or &oops("C
+ategory directory $form{'category'} could not be opened.");
    my @allfiles = grep -T, map "$config{'basepath'}$form{'category'}/
+$_", sort { int($a) <=> int($b) } (readdir THEDIR);
...
    print "<font face=arial size=3><div align=center><center><table bo
+rder=0 cellpadding=0 cellspacing=0 width=100%><tr><td width=100% bgco
+lor=$config{'colortablehead0'} height=3></td></tr></table></center></
+div><br>\n";
        pagebreak($pcount,$pagebreak);   # This is the bottom pagebrea
+k navigation bar
    print "<BR><BR>\n";

sub pagebreak{
    my $begin = "<center>";
    my $next = "Next Page >>";
...
    else{ print " $nonext " }
    print $end;
}