use File::Find;
print "Enter your root directory\n";
$root = <STDIN> ;

sub process_file{
print $File::Find::name if -f ;
}
find (\&process_file,$root);