sub okbutton(){
  $repo_path = $path_entry ;
  print($repo_path );
  my $mbox_error='';
  if ( not $repo_path ){
      $mbox_error =$mw->messageBox(-icon=>'error',
	                               -title=>'Error on Repository Path',
								   -message=>"Error: Repository path should not be empty."
								  );
      return ("");
  }
  if (! -d "$repo_path"){
      $mbox_error =$mw->messageBox(-icon=>'error',
	                               -title=>'Error on Repository Path',
								   -message=>"Error: Repository path is not a valid path."
								  );
      return ("");
  }
  
  $mw->destroy if Tk::Exists($mw);
}
foreach my $each_file (@files){
.....
.....
    {
     $mw = MainWindow->new;
     $mw->geometry("400x120");
     $mw->title("CI Generation");

     #-----------------Frames-----------------------#
     my $main_frame = $mw->Frame()->pack( -side => 'top', - fill => 'x' );
     my $top_frame =
        $mw->Frame( -background => 'light green' )->pack( -side => 'top', -fill => 'x' );
     my $left_frame =
        $mw->Frame( -background => 'white' )->pack( -side => 'top', -fill => 'x' );

     $top_frame->Label(
        -text => "Copy generated *.[ch] files to host repository", 
         #-background => 'cyan' 
      ) ->pack( -side => 'top' );
	
     $left_frame->Label(
        -text       => "Enter host repository path:",
        -background => 'yellow'
       )->pack( -side => 'top', -fill => 'x' );

	 my $entry = $left_frame->Entry(
	       -textvariable => \$path_entry,
			-width => 50)->pack( -side => 'top', -fill => 'x' );

     my $buttons =
        $left_frame->Frame()->pack(-side => 'bottom', -fill=>'both', -expand=> 0);

     my $executeButton=
        $buttons->Button(
                  -text => "Continue",
                  -command => \&okbutton,
	              -width => 20, 
	              -height => 2,
	              -underline => 11
                  )->pack(-side => "left");

     my $exitButton =
        $buttons->Button(
                  -text    => "Cancel",
                  -command => sub { exit 1; },
	              -width => 20, 
	              -height => 2, 
	              -underline => 11
                 )->pack(-side => "right");
	MainLoop;
    }
}