[ale] perl / filesystem script

[jfondow]

I found a perl script a couple of weeks ago and now I can't find it
again (I thought I bookmarked it).  What I am trying to do is rename a
directory and files from "a file name with spaces" to
"a_file_name_with_spaces".  Some of the folks at work are using pc's to
edit their web pages and the pc allows spaces, but when trying to do
backups and file manipulation, it bombs on the linux box of course.  Any
ideas would be greatly appreciated.  TIA