use strict;
use warnings;
use Tk;
use Tk::Text;
my $mw = tkinit();
my $text = $mw->Text()->pack();
$text->insert('end',"This is my first line\n");
$text->insert('end',"This is my second line\n");

PupupTextWidget($mw, $text);
$mw->MainLoop();

sub PupupTextWidget{
  my ($mw, $obj) = @_;
  my $messagePopupSave;
  if ($^O eq 'MSWin32'){
	$messagePopupSave="Do something (ctrl+s)";
  }else{
	$messagePopupSave="Do something (cmd+s)";
  }
  my $menu = $mw->Menu(-tearoff=>0, -menuitems=>[
	[command=>$messagePopupSave, -command=>[sub {
        my $UserInput=$obj->getSelected;
        print $UserInput;
		}, $obj,]],
	[qw/command Copy/, -command=>['clipboardCopy', $obj,]],
	]);

	$obj->menu($menu);

	return $obj;
}