use strict; use warnings; use Tk; use Tk::JPEG; my($main_window); $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 slaves at tk.pl line 9'