Well most people with Perl on Windows, get it from ActiveState. Tk comes standard with ActiveStatePerl. Here is a sample to get you started.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;


 my @types =(
  ["All files",   '*'],
  ["C files",    [qw/.c++ .cpp .c/]],
  ["Log files",      [qw/.log/]],,
  ["Text files",     [qw/.txt/]],
 );

my $mw = new MainWindow ( ) ;

my @files;

$mw -> Button ( -text => 'Select Files ' ,
                 -command => \&select_files
                  )-> pack(-padx=>5, -pady=>5) ;
MainLoop ( ) ;

sub select_files {
    my $return_ref = $mw ->getOpenFile (
                      -initialdir => '.',
                      -filetypes => \@types,
                      -multiple => 1) ;

    foreach my $file( @{$return_ref} ){
        print "Result ", $file, "\n" ;
       }
}
[download]