>>254
MainWindowを作って隠す、という方法が手っ取り早いかな。

#!/usr/bin/env perl

use Tk;

my $mw = new MainWindow();
$mw->withdraw();
my $target = $mw->getOpenFile();

#以降不要なら$mw->destroy();