Current Path : /usr/share/perl5/CGI/examples/

Upload File :

Current File : //usr/share/perl5/CGI/examples/make_links.pl

#!/usr/local/bin/perl

# this is just a utility for creating symlinks from *.txt to *.cgi
# for documentation purposes.
foreach (<*.cgi>) {
    ($target=$_)=~s/cgi$/txt/;
    symlink $_,$target
}

Copyright 2K16 - 2K18 Indonesian Hacker Rulez