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