Lines Matching refs:ans
16 my $pidf = new IO::File "ans.pid", "w" or die "cannot open pid file: $!";
19 sub rmpid { unlink "ans.pid"; exit 1; };
35 my ($rcode, @ans, @auth, @add);
43 push @ans, $rr;
46 push @ans, $rr;
53 push @ans, $rr;
55 push @ans, $rr;
57 push @ans, $rr;
62 push @ans, $rr;
67 push @ans, $rr;
69 push @ans, $rr;
73 push @ans, $rr;
75 push @ans, $rr;
80 return ($rcode, \@ans, \@auth, \@add, { aa => 1 });