whirled perl