Set Label relief (border) to sunken
use Tk; my $main = MainWindow->new; $main->Label(-text => 'Hello!', -relief => 'sunken' )->pack; MainLoop;