#!/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: _COEMan {coe_tool}\n";
   exit;
} 

my $arg1=coeFileConv("COE_HOME/docs/man/".cleanString(shift,4));
printFile ("$arg1");

exit 0;