my %default = (-background => 'cyan');

sub make_label( $parent, %attrs ) {
    $parent->Label( %default, %attrs )->pack
}

make_label(-text => ' ' );
...