use warnings;
use strict;
use Tk ; 

my  $mw = MainWindow->new();
$mw->geometry("500x300+50+50");

my $main_frame = $mw->Frame( -relief => 'ridge')->pack(-side => 'top', -fill => 'x');
my $left_frame = $main_frame->Frame(-relief => 'ridge')->pack(-side => 'left', -fill => 'y');
my $right_frame = $main_frame->Scrolled("Text", -scrollbars => 'se')
						->pack(-expand => 1, -fill => 'both');

my $button1 = $left_frame->Button(-text => "button 1",
                      -command => [\&run_freeze], -relief => 'ridge')->pack(-fill => 'x');
						
my $Close_button = $left_frame->Button(-text => "Exit",
					-command => [$mw => 'destroy'], -relief => 'ridge')->pack(-fill => 'x');						

 MainLoop; 

sub run_freeze {

	open (freeze_script, '-|', 'G:\\opscripts\freeze.pl') or die "\nUnable to start freeze.pl\n"; 
			##$mw->withdraw;
my $first_line = "processing freeze ........\n";
   $right_frame->delete("1.0", 'end');
   $right_frame->insert( 'end', $first_line ); 
my $freeze_line;
   while (defined ($freeze_line =<freeze_script>) ) 
   {
       $right_frame->insert( 'end', $freeze_line );
       $right_frame->update(); 
	   $right_frame->see('end');
	   	   ## $mw -> deiconify;
   }   
}