Select Code to Download

Can't find a usable init.tcl in the following directories:
    c:/Perl/site/lib/auto/lib/tcl8.4 
    c:/perl/lib/tcl8.4 c:/lib/tcl8.4 
    c:/perl/library c:/library 
    c:/tcl8.4.14/library

A          C:\tcl\lib\bwidget1.8\init.tcl
A          C:\tcl\lib\tcl8.4\init.tcl
A          C:\tcl\vtcl-1.6.0\lib\bwidget\init.tcl

#!/usr/bin/wish

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