#!/usr/bin/perl
use Tk;
my $mw = tkinit;

$mw->withdraw;  # hide the empty mainwindow

my $filename = $mw->getOpenFile();
# or
# my $filename1 = $mw->getSaveFile();

#if you want a filename for reading or writing respectively.
print "$filename\n";

use Tk::Event qw(DONT_WAIT);
#MainLoop;