#!/usr/bin/perl -w 
use strict; 

use Tk; 

my $ImageFilePath; 

my $mw = MainWindow -> new; 
$mw -> title("IMU Data Processing"); 

# sizes window 
$mw -> geometry('400x200'); 

#my $frm = $mw -> Frame(); 

# label for Image times file 
my $lblImageFile = $mw->Label(-text => "Image File:", -padx=>5, -pady=>5); 

# entry textbox for Image times dialog 
my $entImageFile = $mw->Entry(-width=>30, -textvariable=>\$ImageFilePath); 

# button to browse for file 
my $butImageFile = $mw->Button(-text=>'Browse', -command=> sub { openImageFileDialog($entImageFile)}); 

MainLoop; 

sub openImageFileDialog { 
my $imageFilePathOpen = $mw->getOpenFile(-title => 'Open Image File:'); 
}