in reply to Tk interface and the rest of the program -- II

You might also want to look at two Tk functions:
getSaveFile and getOpenFile

Just do ...
$ perldoc Tk::getOpenfile

[download]
... to read all about it.
It is easy to use.

Good luck!

In Section Seekers of Perl Wisdom