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

#include "tkPort.h"
char *
strdup(s)
const char *s;
{
 char *p = (char *) malloc(strlen(s)+1);
 if (p)
  strcpy(p,s);
 return p;
}