rename($in,$out) if !-e $out [download]
In reply to Re^2: renaming filenames by remiah in thread renaming filenames by andalou