#!/usr/bin/perl
# The Missing Textutils, Ondrej Bojar, obo@cuni.cz
# http://www.cuni.cz/~obo/textutils
#
# Given a column number, 'split_to_files' uses the value of the column to create
# a separate file for all the lines. Note that we accumulate open files
# until the end of the input stream, so we may easily run out of file
# descriptors.
#
# $Id: split_to_files,v 1.1 2009-09-20 14:16:42 bojar Exp $
#

use strict;
use Getopt::Long;

XXX