#!/usr/bin/env perl   

#  -*- perl -*-

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

# Ebbe Sloth Andersen, March 2005.

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

my ( @entries, $file, $file2, $line, $header, @entries2, $entry, $i );

( $file, $file2 ) = @ARGV;

@entries = &read_col ( $file );
@entries2 = &read_col ( $file2 );

$header = "This col file was generated by the program strip.";

&write_col ( @entries );
&write_col ( @entries2 );