my $user_wizard = new Tk::Wizard(
                -title          => " User Wizard",
		-imagepath      => "people.gif",
	);

	 $user_wizard->addPage( sub {
                return $user_wizard->blank_frame(
                        -title    => "Page Title",
                        -subtitle => "Sub-title",
                        -text     => "Some text.",
                       
                );
        });


	$user_wizard->addPage(sub{          	 my $bframe= $user_wizard->blank_frame(
	                       -title    => "Welcome to the User Information Wizard",
	                  	-text=>"What is your name?");
		my $lbfirstname = $bframe->Label(-text=>"First Name", -background=>'white')->pack;
		my $lbfnentry = $bframe->Entry->pack;
		my $lblastname = $bframe->Label(-text=>"Last Name", -background=>'white')->pack;
		my $lblnentry = $bframe->Entry->pack;
		
		return $bframe;
	}       );
       

        $user_wizard->Show;
        MainLoop;
        __END__