#!/usr/bin/perl

my $file = '.';

opendir(DIR,$file);
@files=readdir(DIR);
close(DIR);

for(@files)
{
    if ( m/ /g) {
        my $oldfile = $_;
        s/ /_/g;
        rename $oldfile, $_;
    }
    print $_."\n";
}