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

##</code><code>##

sub data_for {
  binmode($_[0]);
  read( $_[0], my $data, 100_000_000 );
  return $data;
}