use Tk;

my $mw = MainWindow->new;
$mw->title("Window1");
$mw->MainWindow->Frame(-relief=>'groove');
$mw->minsize(600,300);

my $welcome = $mw-> Message(-font => '16', -text =>"Hello World!")->pack(-side => 'left', -anchor=>'ne');

my $bf = $mw-> Frame(-pady => '5')->pack(-side => 'bottom', -anchor=>'se');
my $cancel = $bf -> Button(-relief=> 'raised', -borderwidth => '2', -text => "Cancel", -command => sub { exit })->pack(-side => 'right',-padx => '20');
my $next = $bf -> Button(-relief=> 'raised', -borderwidth => '2', -text => "Next", -command => sub { \&rep2 , exit})->pack(-side => 'right');
my $back = $bf -> Button(-state => 'disabled', -relief=> 'raised', -borderwidth => '2', -text => "Back")->pack(-side => 'right');

MainLoop;


sub rep2 {

	my $rep2 = MainWindow->new;
	$rep2->tittle("Window2");
	$rep2->minsize(600,300);
	
	my $bf = $rep2-> Frame(-pady => '5')->pack(-side => 'bottom', -anchor=>'se');
	my $msg = $rep2-> Message(-text => "This is the second window.")->pack();
	my $finish = $bf -> Button(-relief=> 'raised', -borderwidth => '2', -text => "Finish", -command => sub{exit})->pack(-side => 'right');	
	
	MainLoop;
	
}