The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
// input fragment
struct FragIn
{
  float4 color : COLOR0;
};
 
// output fragment
struct FragOut
{
  float4 color : COLOR0;
};
 
// fragment shader main entry
FragOut main(FragIn IN)
{
  FragOut OUT;
  OUT.color   = IN.color; // copy input color to output
  OUT.color.z = 1.0f; // blue component of color = 1.0f
  return OUT;
}