#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
my $button = $mw->Button(-text => 'open a file', -command => \&open_file)->pack();

MainLoop;

sub open_file{
  my $file = $mw->getOpenFile();
  print $file if(defined $file);
}