The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
int main()
{
 char x[] = "\377";
 if (x[0] > 0)
  {
   printf("char is unsigned type\n");
   exit(0);
  }
 else
  {
   printf("char is signed type\n");
   exit(1);
  }
}