sub flux {
  my $class = ref shift;
  my $fh = do {
    no strict 'refs';
    \*{"$class\::DATA"};
  };
  return "A-flux: " . scalar <$fh>;
}