{
  open my $in, 'foo.tsv' or die "$!\n";

  $in = Filter::grepit( $in, qr/^42\t/ );
  $in = Filter::cols  ( $in, "\t", 1, 3, 8 );
  $in = Filter::sortit( $in );

  open my $out, '>', 'foo_view.tsv' or die "$!\n";
  print $out $_ while <$in>;
}