use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;
my $var;
my $mw = tkinit;
      my $widget = $mw->BrowseEntry(
          -label => 'Select the Journal Name:',
          -variable => \$var,
          -state => 'normal',
          -choices => [qw(Color Fruits)],
         #-width  => 45
        )->pack(
            -side   => 'top',
            -pady => '10',
            -anchor => 'w');

      my $widget1 = $mw->BrowseEntry(
          -label => 'Select the Journal Name:',
          -variable => \$var,
          -state => 'normal',
          -choices => [qw(White Red)],
         #-width  => 45
        )->pack(
            -side   => 'top',
            -pady => '10',
            -anchor => 'w');

MainLoop();