while true
  pid = fork do
    require 'statsd'
    require 'sys/cpu'

    include Sys

    s = Statsd.new "stats.stovepipestudios.com"

    def parse(str)
      $vm_stat =~ /#{str}:\s*(\d+)\./
      $1.to_i * 4096
    end

    1000.times do
      s.increment "bpo.alive"

      la = CPU.load_avg[0]
      s.gauge "bpo.load_avg", la

      $vm_stat = `vm_stat`
      free = parse 'free'
      spec = parse 'speculative'

      s.gauge "bpo.free_ram", free + spec
      s.gauge "bpo.inactive_ram", parse('inactive')

      sleep 1
    end
  end

  Process.wait pid if pid
end