my $label = $frame -> Label (
                                -fg => 'blue',
                                -font => 30
                              ) -> pack(-fill => 'x'  );