Select Code to Download

# extract name-value pairs from serialized database row
for my $pair ( split( /;/, $serialized_row ) ) {
   my ( $name, $value ) = split( /=/, $pair );
   $record{$name} = $value;
}