Help for this page
package Data::Revive; ... } 1;
#!/usr/bin/perl use strict; ... $loaded_obj2 = Data::Revive::revive_object($sample_text2); print Dumper($loaded_obj2); print "\n\n";