use strict;
use warnings;
use Tk;

my $main = MainWindow->new ();
my $label = $main->Label(-text => 'Text', -font => 'arial 490')->pack ();
MainLoop;