Lines Matching refs:CAT
147 open(CAT,$file) || die "Cannot open $file:$!";
148 my $result = <CAT>;
149 close(CAT);
158 open(CAT,$file) || die "Cannot open $file: $!";
159 my $result = <CAT> || "" ;
160 close(CAT);
169 open(CAT,$file) || die "Cannot open $file: $!";
170 my @got = <CAT>;
174 close(CAT);
202 open(CAT,">$file") || die "Cannot open $file:$!";
203 close(CAT);