Select Code to Download

my $sth = $dbh->prepare("SELECT `Test-Column-1`, `Test-Column-2` FROM 
+`"
            .$config{'MySQL.table'}."` WHERE 1");
...
          'value-2 Column1' => 'value-2 Column2',
          'value-3 Column1' => 'value-3 Column2'
        };

#!/usr/bin/perl
use DBI;
...
          'value-2 Column1' => 'value-2 Column2',
          'value-3 Column1' => 'value-3 Column2'
        };

my %row;
# Column binding is the most efficient way to fetch data
...
                      'value-2 Column1' => 'value-2 Column2'
                    }
        };

[MySQL]
user=user
...
port=3306
db=PerlMonks
table=Data