Adds folding fo perl