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