use File::Find;
find(\&file_names, "/home/gube/");
sub file_names {
print "$File::Find::name\n" if(-f $File::Find::name);
}