#!/usr/bin/perl -w

 use strict;
 use warnings;
 use Tk;
 use Tk::ToolBar;



 my $mw = Tk::MainWindow->new();

 my $tb = $mw->ToolBar(-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"]);

 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);

 $mw->MainLoop();