Select Code to Download

#!/usr/bin/wish

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

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

Segmentation fault