while(-d $dest_book){
                ##Some code            
} 


##</code><code>##

if(-f $path_browsefile){
   ##Some code
}