initial stab for the crazy perl thing