#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use utf8;
 
# Création de la fenêtre
my $fenetre = new MainWindow(
  -title      => 'Fenêtre Tk',
  -background => 'white',
);
 
# Taille minimale de ma fenêtre
$fenetre->minsize( 300, 100 );
 
my $message_accueil = "Bonjour tout le monde\n\n"
 ."Welcome dans le monde magnifique de Perl/Tk et pp/tkpp\n\n";
 
# Affichage d'un texte
my $label_accueil = $fenetre->Label(
  -text       => $message_accueil,
  -background => 'white',
)->pack();
 
# Affichage d'un bouton pour fermer la fenêtre
my $bouton = $fenetre->Button(
  -text    => 'Ferme la fenêtre',
  -command => sub { exit; },
)->pack();
 
MainLoop;