#!/usr/bin/perl

my($r,@files,$name);
$r = Apache->request;
$r->content_type("text/plain");
$r->send_http_header;

opendir(DIR, "/web/draw/anim");
@files = readdir(DIR);
shift(@files);
shift(@files);
foreach $name (@files){
   print -s "/web/draw/anim/". $name, "\t$name\n";
}
close(DIR);