#!/usr/local/bin/perl

use strict;
use warnings;

my $base = '/u/web/user/';
my @allow = qw/log txt sql err par csv/;
my $e;

print "Content-type: text/plain\n\n";
for (split /\n/, `ls -lt $base`) {
    for $e (@allow) {
        if (m/\.$e$/) {
            print "$_\n"; last;
        }
    }
}