use strict; use warnings;
use Tk;
my $mw = MainWindow->new;
my $lbl = $mw->Label;
my $photo = $mw->Photo(-file=>”samplejpg1.jpg”);
$lbl->configure(-image=>$photo);
$lbl->pack;
MainLoop;