programming-examples/perl/GUI/Set Label relief (border) to raised.pl

use Tk;

my $main = MainWindow->new;

$main->Label(-text => 'Hello!',
    -relief => 'raised'
)->pack;

MainLoop;