use Tk;
use strict;
my $mw = new MainWindow;
$mw->geometry('600x600+110+110');
my $drawing = $mw->Canvas(-width => 500, -height => 500, 
-background => "white") -> pack;
my $xpm = $drawing->createBitmap(0, 0, -bitmap  => '@myfile.bmp'); 
my $xpm = $drawing->createImage(0, 0, -bitmap  => '@myfile.jpg'); 
#$drawing->createOval(100,50,300,250,-fill=>"black");
#$drawing->createRectangle(150,100,250,200,-fill=>"red");
#$drawing->createText(200,275,-text=>"Some text on my drawing!",-anchor=>"center");
MainLoop();