#!/usr/bin/perl -w

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

use strict;
my $file;

opendir (DIR, "/home/costas/test") or die "cannot opendir dir";
foreach $file (readdir(DIR)) 
{
    rename($file, lc($file));
	print "$file<br>";
}
closedir (DIR);