$ grep NYI my_perl_script.pl
sub add_son_father_pair { die "NYI" }
sub delete_son_father_pair { die "NYI" }
sub get_a_father { die "NYI" }
sub output_hash_neatly { die "NYI" }
sub replace_a_father { die "NYI" }
sub get_a_grandfather { die "NYI" }
sub add_daily_task { die "NYI";