Hi Simon, you just have to use the module variable $File::Find::name instead of $_. It's as easy as that. So your code will look like

use File::Find;

finddepth (\&RetrieveAll, "c:\\fpx");

sub RetrieveAll {
    push (@list,$File::Find::name,"\n");
}
[download]

HTH

weini