#!/usr/local/bin/perl
use Tk;
my $bufferid=0;
my $mw = new MainWindow;
my $scl_bufferid = $mw ->Optionmenu(-options => [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41],-variable => \$bufferid);

$scl_bufferid-> grid(-row=>1,-column=>1);

MainLoop;