print FH Data::Dumper->Dump([\%data], ['*data']); 

##</code><code>##

my $ret = do $file

##</code><code>##

sub DESTROY  { _write ($_[0]) } #not overidable!