use File::Path;
mkpath("../../categories/$cat", 0, 0777);
chown 1540, 1540, "../../categories/$cat";
chmod 0777, "../../categories/$cat";