mv /usr/local/scripts/pam.pl /usr/local/scripts/.pam.pl
chmod a-w /usr/local/scripts/.pam.pl

##</code><code>##

main(argc,argv)
int argc;
char **argv;
{
    execv("/usr/local/scripts/.pam.pl",argv);
}

##</code><code>##

cc -o /usr/local/bin/pam /usr/local/scripts/pam.c

##</code><code>##

chown root /usr/local/bin/pam
chmod a-w /usr/local/bin/pam 
chmod u+s /usr/local/bin/pam