I think i've figured it out.

    
        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 Informati
+on Wizard",
                          -text=>"What is your name?");
        my $lbfirstname = $bframe->Label(-text=>"First Name", -backgro
+und=>'white')->pack;
        my $lbfnentry = $bframe->Entry->pack;
        my $lblastname = $bframe->Label(-text=>"Last Name", -backgroun
+d=>'white')->pack;
        my $lblnentry = $bframe->Entry->pack;
        
        return $bframe;
    }       );
       

        $user_wizard->Show;
        MainLoop;
        __END__
[download]

Now if I can just resize the Wizard box somehow to show all my text.

There is a -resizable option but I don't know what boolean value to give it.. http://search.cpan.org/~lgoddard/Tk-Wizard-Bases-1.92/lib/Tk/Wizard.pm

my $user_wizard = new Tk::Wizard(
                -title          => " User Wizard",
        -style=>'top',
        -imagepath      => "z:\\BPP\\people.gif",
        -resizable=>"0",
    );
[download]