Select Code to Download

#!/usr/bin/perl

...
    $_ =~ s/ /_/g; # replacing spaces with _
    rename "$File::Find::dir/$file", "$File::Find::dir/$_"; # renaming
+ files
}

Can't cd to (/home/ivan/M1/) Some Dirname With Spaces: no such file or
+ directory
 at ./1.pl line 16