#!/usr/bin/perl
#converts upcase .bin files to all lower case

@dir = `ls -1 *.bin *.BIN`;

foreach $file (@dir) {
	chomp($file);
	$newfile = lc($file);
	system("mv \"$file\" \"$newfile\"");
}