ftype perl