show image tcl tk

package require Img
set image [image create photo -file /home/name/Desktop/Untitled.bmp]
label .txt -text 'aaa'
label .l -image $image
pack .l
pack .txt