#!/usr/bin/perl -w 

use strict;
use File::Find;

my $dir = shift;

find (\&rem_space, $dir);

sub rem_space {
    my ($new, $orig);
    $new = $orig = $_;
    $new =~ s/\s+/_/g;
    rename("$orig", "$new");
}