finger implementation in perl