add perlguts