$$LOG{$_}[0]=do {local *FH;};


##</code><code>##

print $$LOG{$_}[0];
print scalar <$$LOG{$_}[0]>;


##</code><code>##

*main::FH