Select Code to Download

use strict;

...
# to the string 'text' (the return value of &vert),
# not a reference to a subroutine
&$not_sub_ref();

#untested
$action->command(-label=>"Sort by Number",-command=> sub { &queryDB("i
+tem_number") });
$action->command(-label=>"Sort by Sales",-command=>sub { &queryDB("tot
+_sales") });