#include <sys/utsname.h>
#include <unistd.h>

main (int argc, char *argv[], char *envp[])

{
    struct utsname name;

    uname(&name);
    if (name.release[0] == '5')
	execve("/opt/local/bin/perl", argv, envp);
    else
	execve("/usr/local/bin/perl.4.1.3", argv, envp);
}