use Tk;
use strict;
my $mw = new MainWindow();
&getfile;
MainLoop();
sub getfile{
	my $filename = $mw->getOpenFile();

    if(-f $filename){
	    open (FILE,"<",$filename)
	        || die "unable to open $filename $!\n";
	    close (FILE);
		die "FILE OPENED -> $filename\n";
    }else{
     	die $!;
    }
}