$Data::Dumper::Freezer = "DD_freezer" unless defined $Data::Dumper::Freezer;

*{; do { no strict 'refs'; \*{$Data::Dumper::Freezer} } } = sub {
	# serialisation code here
};