Lines Matching refs:FILE
20 my $FILE = './TESTFILE';
23 my $FILE = shift;
24 open F, "> $FILE" or die "Couldn't write temporary file $FILE: $!";
31 my $FILE = shift;
32 open F, "< $FILE" or die "Couldn't write temporary file $FILE: $!";
52 writefile($FILE);
57 my $t1 = readfile($FILE);
62 my $t2 = readfile($FILE);
69 writefile($FILE);
70 my $t3 = readfile($FILE);
75 END { 1 while unlink $FILE }