a perl fingerd