#!/usr/bin/perl
foreach(<*>) {  
  $file1 = $_;
  $file2 = lc($file1);
  system("mv  $file1 $file2"); 
}