#!/usr/bin/env perl   

#  -*- perl -*-

use strict;
use warnings FATAL => qw ( all );
use Data::Dumper;

# Ebbe Sloth Andersen, February 2005. Email: esa@mb.au.dk
#
# COL2CT: Makes files

# >>>>>>>>>>>>>>>>>> RUN PROGRAM <<<<<<<<<<<<<<<<<<<<

my ( @entries, $file, @print, $line, $header );

( $file ) = @ARGV;

@entries = &read_col ( $file );
$header = "This column file was generated by col2ct.";
&write_ct ( @entries );
