Err, since you need the path separator before you find a perl, you should just use $Config::Config{path_sep}.