#!/usr/bin/perl

  use strict;
  use warnings;

  use Tk;

  my(@labels);

  my $mw = tkinit;

  my $f = $mw->Frame()->pack();

  push(@labels, $f->Label(-text => $_))
      for qw(eins zwei drei vier fuenf);

  $labels[0]->pack;

  $mw->Button(-text => 'Prev', -command => [\&slide, 0])->pack(-side => 'left');
  $mw->Button(-text => 'Next', -command => [\&slide, 1])->pack(-side => 'left');

  MainLoop;

  sub slide {
      $labels[0]->packForget;                 # Label aus Frame entfernen
      $_[0] ? push(@labels, shift @labels)    # Labels rotieren (next | prev)
            : unshift(@labels, pop @labels);
      $labels[0]->pack;                       # Label in Frame packen
  }