#!/usr/bin/wish

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

##</code><code>##

no image data for this index at /usr/lib/perl5/Tk/Image.pm line 21, <GIF> line 1.

##</code><code>##

Segmentation fault