#! /usr/bin/perl

sub setaffinity {
  use Config;
  die if "@Config{qw(ptrsize archname)}" !~ /8.*x86_64.*linux/;

  my $mask = pack "Q", shift;
  syscall 203, 0, 8, $mask;
}

setaffinity 0x22; # allow cores/threads 1 and 5
fork for 1..3;    # 8 workers
1 while 1;        # busy we are