Lines Matching refs:CAT
171 open(CAT,$file) || die "Cannot open $file:$!";
172 my $result = <CAT>;
173 close(CAT);
182 open(CAT,$file) || die "Cannot open $file: $!";
183 my $result = <CAT> || "" ;
184 close(CAT);
193 open(CAT,$file) || die "Cannot open $file: $!";
194 my @got = <CAT>;
198 close(CAT);
216 open(CAT,">$file") || die "Cannot open $file:$!";
217 close(CAT);