sub walk {
        my ($file, $prefix);