or download this
my $notebook=$mw->NoteBook(-font=>"Helvetica 12")->pack(-expand => 1,
+-fill => 'both');
my $page1=$notebook->add('page1', -label=>'Case Information');
my $generall=$page1->Label(-text=>'GENERAL INFORMATION', -font=>"Times
+ 12")->place(-x=>160, -y=>2);