#!/usr/bin/env perl   

#  -*- perl -*-

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

# COL2LIST.GFOLD
# Ebbe Sloth Andersen, October 2005.

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

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

( $file ) = @ARGV;

$entries = &Formats::read_col ( $file );
&Formats::write_list ( $entries );
