This bit of code will return only the part before the decimal point eg. 3.4 becomes 3.0

while ( ($status = $st->fetch( \$result )) == 0) 
    {
        print returns "$result\n";
    }
    die "$st->{Error}\n" if ($status < 0);
[download]