#!/usr/bin/perl -w
# $Id: text,v 1.1.1.1 2005/07/03 06:02:18 kiesling Exp $

if (($#ARGV != 1) || ($ARGV[0] eq '-h')) {
    print STDERR "usage: text infile outfile\n";
    exit 1;
}
$ARGV[0] = quotemeta $ARGV[0];  $ARGV[1] = quotemeta $ARGV[1];
`cat $ARGV[0] > $ARGV[1]`;

exit 0;
