in reply to pivot_root in perl ?

Nothing jumps out on CPAN, but it should be trivial to use either syscall or Inline::C to call it.