perl class FPT