如何在运行的Gtk3（Perl）程序中修改标签的背景色？

我似乎找不到在运行的Gtk3 Perl程序中修改标签背景颜色的正确方法。我可以对CSS进行黑客攻击，并在那里对其进行修改（黑客攻击虽然有效，但像****一样草率），但我找不到正确的方法

我尝试查看draw事件，但无法使其与标签的背景色配合使用

有任何指针吗？

下面是一个使用以下各项的示例：

---

使用没有文本的标签尝试了上述代码。。。。运行时无法查看背景结果。在标签上添加了文本，背景颜色也发生了变化。

use strict;
use warnings;
use Gtk3 -init;
use Pango;

{
    my $window = Gtk3::Window->new( 'toplevel' );
    $window->signal_connect( destroy  => sub { Gtk3->main_quit() } );
    my $label = Gtk3::Label->new('Hello world!');
    my $attrlist = Pango::AttrList->new();
    my $fontsize = 20;
    my $attr1 = Pango::AttrSize->new($fontsize * Pango::SCALE);
    $attrlist->insert($attr1);
    my $attr2 = Pango::AttrBackground->new(0x0000, 0xFFFF, 0x0000);
    $attrlist->insert( $attr2 );
    $label->set_attributes( $attrlist );
    $window->add( $label );
    $window->set_default_size( 200, 200 );
    $window->set_position('center_always');
    $window->show_all();
    Gtk3->main();
}