#!/usr/bin/perl -w use strict; use File::Find; my @dirs; find (sub {push @dirs => $File::Find::name}, @INC); print "Content-type: text/plain\n\n"; print join "\n" => sort @dirs; # bye