my $mw = MainWindow->new;
my $button = $mw->Button()->pack();
my $photo = $button->Photo( -format => 'jpeg', -file => 'test.jpg' );
$button->configure( -image => $photo );
MainLoop;