Cross posted at StackOverflow. When you cross-post on numerous sites, please let all sites know you're doing so, as to not waste people's time working on a solution when one could already be located somewhere else.

Here's a very simple example from my SO answer. It requires only a single use statement (you'll have to install Tk first, of course), and one line of code. It's also cross-platform:

use warnings;
use strict;

use Tk;

my $file = Tk::MainWindow->new->getOpenFile;

print "selected file: $file\n\n";

open my $fh, '<', $file or die $!;

while (<$fh>){
    print;
}
[download]