int psCheck( const char* prog_name )
{
   dSP;
   int ret;
   int count = 0;

   ENTER;
   SAVETMPS;
   PUSHMARK( SP );
   XPUSHs( sv_2mortal( newSVpv( prog_name, 0 ) ) );
   PUTBACK;
   ret = call_pv("psCheck", G_SCALAR);
   SPAGAIN;


   if (ret != 1)
      croak("Big trouble\n" ;

   count = POPi;
   PUTBACK;
   FREETMPS;
   LEAVE;
   return count;
}