...
use Tk;
use Tk::JPEG;
...
my $mw = MainWindow->new();
my $image = $mw->Photo();
$mw->Label( -image=>$image )->pack;
...
sub update_image {
...
 $image->configure( -format => 'jpeg', -data => $data );
 $mw->update;
...
}