#!/usr/bin/perl -w

BEGIN {
    $|=1;
    print "Content-type: text/html\n\n";
    use CGI::Carp('fatalsToBrowser');
}

use strict;
my $file;


my $path = '/home/costas/test';

opendir (DIR, $path) or die "Can't opendir: $!";

for (readdir DIR) {
print "$_<br>";
    rename("$path/$_", lc("$path/$_")) or print "Couldn't rename $file: $!\n";
}

closedir DIR;

##</code><code>##

Couldn't rename : Not a directory ..
Couldn't rename : Device or resource busy safdLLP.txT.txt
Couldn't rename : Permission denied safdLLPt.txT.txt
Couldn't rename : Permission denied