perl ready thx to @getty