perl autodia