Yeah I just looked at it, and File::Glob will do the trick on linux. Change

#    my @files = glob "$path/*"; 
    use File::Glob ':glob';
    my @files = bsd_glob( "$path/*");  #includes spaces
[download]

I changed the glob to a readdir and used Encode::decode.