use Tk;
use strict;
my $mw = MainWindow->new;
$mw->geometry("200x300");
$mw->title("MAIN WINDOW");
my $lname1;
my $button_frame1 = $mw->Frame()->pack(-side => "top");
$button_frame1->Button(-text => "GI EXTRACTOR", -command => \&window1)->pack();

sub window1
	{
my $mw = MainWindow->new;
	$mw->geometry("700x700");
	$mw->title("GI EXTRACTOR WINDOW");
	

	my $button_frame1 = $mw->Frame()->pack(-side => "top");
	$button_frame1->Button(-text => "Browse File", -command => \&update_output1)->pack(-side => "top");
	
	my $bf1 = $mw->Frame()->pack(-side => "top");
	$bf1->Label(-text => "You Have Selected The Following File")->pack(-side => "left");
	$bf1->Entry(-bg=>'red',-textvariable => \$lname1)->pack(-side => "left");
	
	my $b_f1 = $mw->Frame()->pack(-side => "top");
	
	$b_f1->Button(-text => "Ok", -command => \&u_o1)->pack(-side => "bottom");
	
	my $output_frame1 = $mw->Frame()->pack(-side => "bottom");
	my $output_scroll1 = $output_frame1->Scrollbar();
	my $output_text1 = $output_frame1->Text(-yscrollcommand => ['set', $output_scroll1]);
	$output_scroll1->configure(-command => ['yview', $output_text1]);
	$output_scroll1->pack(-side => "right", -expand => "no", -fill => "y");
	$output_text1->pack();
	
	sub update_output1
		{
		my $button_frame1 = $mw->getOpenFile();
		$lname1=$button_frame1;
		}

sub u_o1 {
my $output1;
open(FH,"<$lname1");
while(my $_=<FH> )
{
if($_=~/^>gi/)
{
my@arr=split(/\|/,$_);
 $output1=$arr[0].$arr[1];
}

}
close(FH);

  $output_text1->delete('0.0', 'end');
  $output_text1->insert("end", $output1);
}
}
MainLoop;