$d = Data::Dumper->new([$fh]);
$d->Purity(1);
print $d->Dump;