Select Code to Download

47:         my($npath) = unixify($path);
  DB<7> x $path
...
  DB<8> x $npath
0  "/USERS/DIR/aaaaa\c@"     # <---- What's that \c@ doing there?!

47:         my($npath) = unixify($path);
...
  DB<10> x $npath
0  '/USERS/DIR/aaaaaaa/'

print File::Spec->catfile("USERS:[DIR.aaaaa]", "file"); # Include USER
+S:, or else this won't work!