Select Code to Download

#!/usr/bin/perl -w

...
    history_table($dbc);
    print $html;
    print $color;

  $dbc->do( "INSERT INTO color02 ( hexcode ) VALUES ( ? )", undef, $id
+ );
  #my $db_result = $dbc->prepare('SELECT hexcode FROM color02 ORDER BY
+ id DESC LIMIT 1');
...
       my @row;
       my $sql = "SELECT hexcode, ts FROM color02 ORDER BY id DESC LIM
+IT 1";
       my $sth = $dbc->prepare($sql);