1#!/usr/local/bin/perl
2
3# this is just a utility for creating symlinks from *.txt to *.cgi
4# for documentation purposes.
5foreach (<*.cgi>) {
6    ($target=$_)=~s/cgi$/txt/;
7    symlink $_,$target
8}
9