atool: perl is slotted