No appending...

[Wert, Nathaniel J]

The following script is not appending to the file for some reason.
Please bestow your wisdom on me oh great Perl gods.  :-)
------------------------------------------------------------------------
--
#!/usr/bin/perl -w
my $size=0;
my @stat;

open(TEMPFILE, ">>/temp/temp.big_ass_file") or die "unable to write
/temp/temp.big_ass_file:$\n";

while ($size < 15000000000) {
   print TEMPFILE "This is a test for caiLogA2. \n";
   @stat = stat TEMPFILE;
   $size = $stat[7];
   sleep 1;
   print STDOUT "test\n";

}

close(TEMPFILE);
------------------------------------------------------------------

Thanks.
Nate.