<?
::rivet::headers type "image/jpeg"
if { [::rivet::var exists test1] } {
    set fl [ open AngeloFish.jpg r ]
    fconfigure $fl -encoding binary
    fconfigure $fl -translation binary
    fconfigure stdout -encoding binary
    if {$::tcl_platform(platform) eq "windows"} {
        fconfigure stdout  -translation binary
    }
    puts -nonewline [read $fl]
    close $fl
} else {
    ::rivet::include AngeloFish.jpg
}
?>