use Tk;
        use Tk::ToolBar;

        my $mw = new MainWindow;
        my $tb = $mw->ToolBar(qw/-movable 1 -side top
                                 -indicatorcolor blue/);

        $tb->ToolButton  (-text  => 'Button',
                          -tip   => 'tool tip',
                          -command => sub { print "hi\n" });
        $tb->ToolLabel   (-text  => 'A Label');
        $tb->Label       (-text  => 'Another Label');
        $tb->ToolLabEntry(-label => 'A LabEntry',
                          -labelPack => [-side => "left",
                                         -anchor => "w"]);

	# erstelle einen extra frame:
	my $frame = $tb->Frame()->pack(-side => right);
	$frame->Entry(-width => 40)->pack;

        my $tb2 = $mw->ToolBar;
        $tb2->ToolButton(-image   => 'navback22',
                         -tip     => 'back',
                         -command => \&back);
        $tb2->ToolButton(-image   => 'navforward22',
                         -tip     => 'forward',
                         -command => \&forward);
        $tb2->separator;
        $tb2->ToolButton(-image   => 'navhome22',
                         -tip     => 'home',
                         -command => \&home);
        $tb2->ToolButton(-image   => 'actreload22',
                         -tip     => 'reload',
                         -command => \&reload);

        MainLoop;