#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;
$|=1;

my $columns = param('c') || 4;

opendir(DIR, ".") || die "cannot open dir: $!";
foreach (sort readdir(DIR)) {
    next if /~\z/ || $_ eq "ls.cgi" || $_ eq "." || $_ eq "..";
    push @{ (-d) ? $_[0] : $_[1] },
        (-d) ? b(a({href=>"$_"},"[ $_ ]")) : a({href=>"$_"},"$_");
}
closedir DIR;

# Combine dirs and files
$_[3] = [ @{$_[0]}, @{$_[1]} ];

print
    header,
    start_html('Directory Listing'),
    h3('Directory Listing'),
    b("Dir Count: ".@{$_[0]}), b(", File Count: ".@{$_[1]}),
    table({-border=>0,-cellpadding=>5,-cellspacing=>5},
	  map Tr($_),
	  grep { length($_) > 0 }
	  map td([ splice @{$_[3]},0,$columns ]), @{$_[3]}
	 ),
    end_html;

__END__