package ...::Util
...
use Encode;
...

sub clean_path {
    return $^O eq 'Win32'
        ? Encode::encode( 'cp1252', shift )
        : shift
    ;
}

...