Select Code to Download

use strict;
use warnings;
...
$main_window = MainWindow->new();
$main_window->Photo(-format => 'jpeg', -file => 'test.jpg')->pack;
MainLoop;

'wrong # args: should be "pack option arg ?arg ...?" at tk.pl line 9.'

'bad option "image1": must be configure, forget, info, propagate or sl
+aves at tk.pl line 9'