sub data_for {
  binmode($_[0]);
  return <$_[0]>;
}