int main()
{  
    pid_t pid;
    int status;
    char *argv[2]={"100033",NULL};
    pid = fork();

    if (pid < 0) return -1;

    if (pid == 0)
    {
      execv( "/wdir/script.pl", argv );
     }
}

##</code><code>##

open (FILE,">test.txt");
print FILE $ARGV[0];