#! perl

use Tk;

$mw = new MainWindow;
$mw->Label(-text=>'aaaaa',-relief=>'raised',-padx=>40)->pack;
$mw->Label(-text=>'bbbb',-relief=>'sunken')->pack;
$mw->Label(-text=>'ccc',-relief=>'flat')->pack;
$mw->Label(-text=>'dd',-relief=>'ridge')->pack;
$mw->Label(-text=>'e',-relief=>'solid')->pack;
$font=['MS　ゴシック', 11, 'normal'];
$mw->Label(-font=>$font,-text=>'日本語も出ます',-relief=>'groove')->pack;
MainLoop;