The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
uniform vec4 surfacecolor;

void main (void)
{
   float v = 2.0 * gl_TexCoord[0].y;
   v = 1.01 - abs(1.0 - v);  // Some cards have a rounding error
   gl_FragColor = vec4(v,v,v, 1.0) * surfacecolor;
}