I have this subroutine that has been hanging up if the file 'dicelog.txt' is empty.  So I added this little check to throw at least one line of text in the file before running the rest of it.  But it's still hanging up.

	if (!-s "$vardir/dicelog.txt")  {
		fopen(ROLLLOG, ">>$vardir/dicelog.txt") || die "$RollLog{'1'} $!";
		print ROLLLOG "<tr><td>";
		print ROLLLOG localtime;
		print ROLLLOG "</td><td>System</td> <td> NA </td> <td> NA </td> <td> NA </td> <td> NA </td> <td> New Roll Log Created </td> </tr>

\n";
		fclose(ROLLLOG);

	} 

Is this hanging up because of the way I'm checking for an empty file, or is there some other reason?

Is it possible that I need to add a pause just to allow the process time to create the file before it tries to open it?