sub set_new_quota { #user,blocks
  local ($SYS_quota)=148;
  local ($Q_SETDLIM)=3;
  local ($uid,$bs) = @_ ;
  local ($dir) = "/var/spool/mail\0";
  local ($dqblk)  = pack("LLLLLLLL",10000,$bs,0,1000,200,0,0,0); 
local ($stat,$buf); 
$stat=syscall($SYS_quota,$Q_SETDLIM,$dir,$uid+0,$dqblk); 
return $stat==0;
}