$t->tagConfigure('right', -justify => 'right');
$t->insert('end',"test.\n",'right');

##</code><code>##

$t->imageCreate ('end',-image => $image ,'right');