use File::Find;

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

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