use Tcl::Tk;
my $int = new Tcl::Tk;
$int->packageRequire('img::png');
open my $fh, "valid-xhtml10.png";
binmode $fh;
$int->mainwindow->Label(-image => $int->imageCreate('photo',
   -data=>join'', <$fh>,
   ))->pack;
$int->MainLoop;