ext/CGI/examples/make_links.pl

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