Hello again, Last question I hope, I have the following code to retrieve a file, but I'm interested in retriveing more the one file. Any suggestions?

#!/c:/perl

use Win32;
use Win32::Process;
use Tk;
use Tk::HList;
use Tk::Notebook;

use vars qw($int $entry);

&init_ui();

MainLoop;

sub init_ui
{
    my $mw = MainWindow->new;
    $mw->title("File Converter"); 


    # menu bar (top)
    my $menu = $mw->Frame(
        -borderwidth       =>  '2',
        -relief            =>  'groove'
        )->pack(-side => 'top', -anchor => 'n', -expand => 1, -fill =>
+ 'x'); 

      
    $menu->Menubutton(
        -text              =>  "File", 
        -menuitems => [ ['command' => "Open", -command => sub { fileDi
+alog()}] ]
        )->pack(-side =>'left');

sub filebox {
        my $f = $mw->Frame;
    my $but = $f->Button(-text => "Browse ...",
                -command => 
                sub { fileDialog()});
    $but->pack(-side => 'left');
    $f->pack(-fill => 'x', -padx => '1c', -pady => 3);
}

sub fileDialog {
    my $types;
    my $file;
    @types =
      (["MP3 Files",        '.mp3'],
       ["All files",        '*']
      );
    $file = $mw->getOpenFile(-filetypes => \@types);
    print "FILE: $file\n";
}
}
[download]

Thanks again, you guys have been a great help today!