#!/usr/bin/perl
use warnings;
use strict;

use Tk;

my @names = ( 'John Smith',
              'Jane Doe',
              'Francois Machin');

my $mw = 'MainWindow'->new;
my $text = $mw->Text->pack;
my $next;
$next = $mw->Button(-text    => 'Next',
                    -command => sub {
                        if (@names) {
                            $text->insert('end', pop(@names) . "\n");
                            $next->configure(-text => 'Done') unless @names;
                        } else {
                            Tk::exit();
                        }
                    })->pack;

MainLoop();


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,