Select Code to Download

#!/usr/bin/perl -wT

use strict;
...
    -labels => \%colours,
    -values => [ sort keys %colours ],
  );

print popup_menu(
  -name   => 'colours'
  -values => $dbh->selectall_arrayref('SELECT name FROM colour'),
);