my $string = Dump $oldbaloon;
my $baloon = Load $string;