Select Code to Download

$sth = $dbh->prepare( "something" ) 
  || die "Error: " . $dbh->errstr;
...
        print "$ref->{something}";
    }
}

$single_scalar = $sth->something();