Select Code to Download

my $value = '';
DBC (
...
print "Copied $value from DBrecord1 to DBrecord2.\n";
print "Read $x from DBrecord1.\n";
print "Wrote 55 into DBrecord1.\n";

DBC (
    'DBrecord1,subrecord,field' => \$value,
...
    55 => 'DBrecord1,subrecord,field3',
    $value => 'DBrecord2,subrecord,field'
);