use ExtUtils::Installed;
                                                                                
                                                                                
use lib qw( /home/jonathan/foo/lib/perl5/site_perl/5.8.1);
                                                                                
my $ff = ExtUtils::Installed->new('/home/jonathan/foo/lib/perl5/site_perl/5.8.1');
                                                                                
print $ff->files('Foo','all');