#!/usr/bin/perl
$ARGV[0]="-"if($ARGV[0]eq"");open(F,$ARGV[0])||die$!;binmode(F);if($ARGV[0]=~
/^-$|^$/||$ARGV[0]){while(!eof(F)){read(F,$d,1024);$s.=$d}}select(STDOUT);$|=
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@xabean.net