Select Code to Download

 
#!/usr/bin/perl -w
use strict;
...
    while( (key, value) = each( %set ) ) {
        #$table->{$pk}->{$key} = $set{$key};
    }