Hi,

Here's the alternative using FindBin

#!/usr/bin/perl

@filelist =("includes.cgi","connect.cgi","commit.cgi");
@file =();

use FindBin qw($Bin);

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

foreach $filelist(@filelist){
        $path = "$Bin\/$filelist";
            push (@file,$path);

}

$changed = chmod 0777,@file;

foreach $file(@file){
       print "$file<br />";
}

print "<br />$changed files changed";
[download]

Sid