Select Code to Download

use strict;

...
    my $value = $query->param($cd);
    # blah
}

$pq_out = `/opt/bin/pq -o '%last:%first:%loc:%room:%tel:%id' hrid=$c1`
+;