$files=`cat filenamelist.txt`;
$_=$files;

@filesa= split(/\n/);


print "<table align=\"center\" cellpadding=\"0\" border=\"1\"><tbody>\n";


foreach(@filesa) {
    $filename=$_;
    @filenamebits=split(/-/);
    $folderprefix=@filenamebits[0] + 1;
    print "<tr>\n";
    print "<td>\n<a href=\"http://projects.csail.mit.edu/films/digitalFilms/$folderprefix";
    print "mp4/$filename.mp4\">$filename.mp4</a>\n</td>\n";
    print "<td>\n<a href=\"http://projects.csail.mit.edu/films/digitalFilms/$folderprefix";
    print "mpeg/$filename.mpg\">$filename.mpg</a>\n</td>\n";
    print "</tr>\n";
}
print "</tbody>\n</table>\n";

