perl dnd silly