Select Code to Download

sub print_rec {

opendir DIR, shift;

if(!/\.|\.\./ && -d $_)

return print_rec($_);

elsif (!-d) { ... }

#!/usr/bin/env perl -l

...
        }
    }
}

...
DIR: mastering_perltk_demo_code
...
            fontviewer
        DIR: ch04
...