Do you mean the LabFrame?

use Tk;
use Tk::LabFrame;

my $main = MainWindow->new();
$main->LabFrame(
    -label => 'fubar',
    -labelside => 'acrosstop'
)->pack;

MainLoop;
[download]