use Tk;
use Tk::Photo;
use Tk::JPEG;
my $mw=new MainWindow;
my $foto=$mw->Photo(-file => 'C:\\temp\\itunesart\\702_-_702.jpg');
$mw->Button(-image => $foto)->pack();
$mw->MainLoop;