#!/usr/local/bin/perl
# usage: catcol input1 input2 > output
# GNU-(c) Heiko Purnhagen <purnhage@tnt.uni-hannover.de>
# $Id: catcol,v 1.2 1998/12/30 19:56:04 purnhage Exp $
# HP 981002

{
  open f1,@ARGV[0];
  open f2,@ARGV[1];
  do {
    $l1= <f1>;
    $l2= <f2>;
    chop $l1;
    print $l1," ",$l2;
  } until (eof)
}
