#!/h/COE/Comp/PERL5/bin/perl -T -I/h/COE/lib -w
use strict;
use Coe;

my $VERSION="1.1.4.1";
sub printFile;

if (@ARGV != 1) {
   print "Usage: _COECat {coe_file}\n";
   exit;
} 

my $arg1=coeFileConv(cleanString(shift,4));

printFile ("$arg1");

exit 0;