#!/usr/bin/perl

$uri = $ENV{"REQUEST_URI"};
$uri =~ [.*pub.cgi/(.*)];
$fn = $1;

if ($fn) {

}
else {
print "Content-type: text/plain\n\n";
print "<pre>";
print `ls -l /csua/tmp`;
}