sub when {
print $File::Find::name," ";
}