#!/usr/local/bin/perl
#-*- perl -*-
#
# Copyright (C) 2001 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
# $FML$
#
use strict;
use Carp;
my $Module;
HEADER();
Show();
FOOTER();
exit 0;
sub Show
{
print "
\n";
print "
\n";
foreach my $pathname (<*>) {
next if $pathname =~ /^\__template/;
next if $pathname =~ /^\@/;
next if $pathname =~ /\~$/;
next if $pathname =~ /pod$/;
next if $pathname eq 'CVS';
next if $pathname =~ /^index/;
next if $pathname =~ /^00_/;
next if $pathname eq 'Makefile';
print "
\n";
print "
$pathname \n";
for my $fn ("README", "INSTALL", "MANIFEST") {
print "