1N/A#!/usr/local/bin/perl
1N/A
1N/A# this is just a utility for creating symlinks from *.txt to *.cgi
1N/A# for documentation purposes.
1N/Aforeach (<*.cgi>) {
1N/A ($target=$_)=~s/cgi$/txt/;
1N/A symlink $_,$target
1N/A}