Hi looking for something like this just to give me an idea I notice a missing comma it should be like this ?

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

Or am I wrong?
Thanks with the example you help me nail the problem
THANKS!!!!!