#!/usr/bin/perl
$ARGV[0]="-"if($ARGV[0]eq"");open(F,$ARGV[0])||die$!;binmode(F);if($AR
+GV[0]=~
/^-$|^$/||$ARGV[0]){while(!eof(F)){read(F,$d,1024);$s.=$d}}select(STDO
+UT);$|=
1;while(1){if($ARGV[0]ne"-"){seek(F,0,0);while(!eof(F)){read(F,$s,1024
+);print
STDOUT$s;}}else{print STDOUT$s;}}close F;# catl v1.0, (C) warewolf@xab
+ean.net
[download]

ick, this is 77 chars wide, yet it's wrapped. :(