Use

my $filename = $widget->getOpenFile( ARGS );
# or
my $filename = $widget->getSaveFile( ARGS );
[download]

if you want a filename for reading or writing respectively.

This will open a standard Tk file-dialog window that allows the user to select or type a filename/path.

More info in Tk::getOpenFile.