create folder if it does not exist perl