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

##</code><code>##

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