Hi,
thanks a lot for your reply.I tried the replace sub like this:

sub replace{

  my $chosen=shift;
  $chosen= 'none' unless defined $chosen;
      
  print "\nThe selected word:";
  print "\n$chosen";
}
1;
[download]

I'm getting this as output:

The selected word:
none
[download]

which means the button label is not being sent by the main code to the replace function, is that right? what is the
problem here?

Actually I thought that $_ would simply contain the elements of @menu_items sequentially,i.e Foo, Bar,Baz,
.... Now I take it that clicking on any menu button will call replace($_), where $_ is the label of the button
on which we click.

Thanks in advance.
:)