Here's a simple script using File::Find: Just run it from the top directory, use / for the whole filesystem, and run it as root. To output it to a textfile: ./filelister > my.txt

#!/usr/bin/perl
#filelister
# Recursively searchs down thru directories for files  
use warnings;
use strict;
use File::Find;

find (\&found,".");
$" = "\n";
print "@ARGV\n";
exit;

sub found{
push @ARGV, $File::Find::name if -f;
}
[download]