#!/usr/bin/perl -w

# underscore.pl - by dual
#
# Usage: perl underscore.pl <dir>
#
# Replaces spaces w/ underscores in
# file names
###################################


use strict;
use File::Find;


# Get directory or provide assistance
print "Usage: perl underscore.pl <dir>\n" and exit
	unless defined(my $dir = shift);


# Call replace for each file
find(\&replace, $dir);


# Replace spaces here
sub replace {
	my $temp = $_;
	# Skip directories
	if ( !(-d) ) {
		if ($temp =~ s/ /_/g) {
			rename $_, $temp;
		}
	}
}