Select Code to Download

if ($q->param{'field'} eq "") { # Note that 'field' has curlies now
    &printform()
...
else {
    &results()
}