#!/usr/bin/perl

  use strict;
  use warnings;

  use Tk;

  my $mw = tkinit;

  my $m = $mw->Menu();
  $m->add('command', -label => 'Exit',
          -command => sub { Tk::exit });

  my $l = $mw->Label(-text => "Mach 'n Rechtsklick!")->pack();

  $l->bind('<Button-3>' => sub { $m->Popup(-popover => 'cursor') });

  MainLoop;