#!/usr/bin/perl

@files = `/bin/ls`;
chop @files;

foreach $file (@files)
{
  $lowfile = lc $file;
  `mv $file $lowfile`;
}