#!/usr/bin/wish

set fdata [read [open "test.gif"]]
label .l1 -image [image create photo -format gif -data $fdata]
pack .l1