print FH $foo or die $!;