my($FragProgID) = glGenProgramsARB_p(1);

  # Lazy Metallic Fragment shader
  my $FragProg = qq
  {!!ARBfp1.0
    TEMP color;
    MUL color, fragment.texcoord[0].y, 2;
    ADD color, 1, -color;
    ABS color, color;
    ADD result.color, 1.01, -color;
    MOV result.color.a, 1;
    END
  };

  glBindProgramARB(GL_FRAGMENT_PROGRAM_ARB, $FragProgID);
  glProgramStringARB_p(GL_FRAGMENT_PROGRAM_ARB, $FragProg);
  #my $fprog = glGetProgramStringARB_p(GL_FRAGMENT_PROGRAM_ARB);
  #print "Fragment Prog: '$fprog'\n";