{
    open IN, "tsl_logo1.gif";
    binmode IN;
    local $/;
    print "\$image = unpack 'u*', <<'_END_';\n";
    print pack "u*", <IN>;
    print "_END_\n";
}