thanks. it takes me much time to understand all.

finally, i try to use sub my_question { use Tk; my($titre, $msg) = @_; Tkx::tk___... } inside my script and it doesn't work either.

3 sub

one for directory, one for information and one for asking the user.

i will try your proposal soon. ;-)