my ($filename, $newfile);
foreach $filename (readdir(DIR))
{
    ($newfile = $filename) =~ tr/ /./;
    rename($filename, $newfile);
}

##</code><code>##

chdir $dir or die "Can't chdir to $dir: $!\n";
opendir(DIR, '.') or die "Can't open '.': $!\n";