my $outputf = 'C:\temp\output_log.txt';

# The following is here just for a reminder:
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = (0,1,2,3,4,5,6,7,8,9,10,11,12);

while (1)
{	
	my @stat = stat $outputf;
	print "\n";
	for (@stat) {print "$_\t"}
	sleep 1;
}