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