#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;

print "Content-type: text/html \n\n";

my $path = "/path/to/folder/you/have/lsql/in";
my $original = "/path/to/old/folder";
my $new = "/new/path/to/folder";

opendir (DIR, "$path");
my @files = readdir(DIR);
closedir(DIR);

undef($/);
for my $file (@files) {
if ($file =~ /(html|pm|cgi)$/) {
open(R, "$path/$file") || die "cant open file [$file] : $!";
my $data = (<R>);
close (R);
$data =~ s/$original/$new/ig;
open (W, ">$path/$file") || die "Error writing to file [$file]: $!";
print W "$data";
close (W);
}
}

print "done";