in reply to File Find Dir and name

untested fast example:
use File::Find;
my @files;
find(
   sub {
     push (@files, "$File::Find::dir/$_"); },

   '/var/www/dir', '/var/www/anotherdir',
   );

[download]
"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

In Section Seekers of Perl Wisdom