use Tk;
my $mw = tkinit;
my $can = $mw->Canvas->pack;
$can->createLine(10,10,10.5,10);
MainLoop;