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;