Premier programme complet avec Perl Tk
$main = MainWindow->new(-title=>'Convertisseur Euro :');
$frame1 = $main->Frame()->pack();
$frameG = $frame1->Frame()->pack(-side=>'left', -pady=ɱ);
$frameD = $frame1->Frame()->pack(-side=>'right', -pady=ɱ);
$frame2 = $main->Frame()->pack();
$frame3 = $main->Frame()->pack();
$libelF = $frameG->Label(-text=>'Francs :')->pack(-padx=ɱ);
$montantF = $frameD->Entry()->pack();
$libelE = $frameG->Label(-text=>'Euros :')->pack(-padx=ɱ);
$montantE = $frameD->Entry()->pack();
$raz = $frame2->Button(-text=>'RAZ', -command=>\&vider)->pack(-side=>'left', -padx=ᡌ, -pady=ɱ);
$calcul = $frame2->Button(-text=>'Calculer', -command=>\&calcul)->pack(-side=>'right', -padx=ᡌ, -pady=ɱ);
$fin = $frame3->Button(-text=>'Fermer', -command=>sub {exit})->pack(-pady=ɱ);