my $user_wizard = new Tk::Wizard(
                -title          => " User Wizard",
        );
my $dlg = $user_wizard->DialogBox(-title=>'User Wizard', -buttons=>["OK", "Cancel"]);       

		
$user_wizard->addPage( sub {
                return $user_wizard->blank_frame(
                        -title    => "Page Title",
                        -subtitle => "Sub-title",
                        -text     => $dlg,

                );
        });

        $user_wizard->Show;
        MainLoop;
        __END__