$Body->Label(-text => "abcd")->pack(padx => 10, pady => 10);