Select Code to Download

my $stmt = <<'GPO';
select id_num id
from   reference
...
my $shoe = 9; 
my $results_ref = $dbhandle->selectrow_hashref($stmt, undef, $name, $s
+hoe);
print $results_ref->{id};