#!/usr/local/bin/perl -w -s

use DBI;

my $dbh = DBI->connect("dbi:mysql:porta-billing", "root");

my $sth = $dbh->prepare(<<SQL);
    SELECT name, value
    FROM UA_Profile_Values
    WHERE i_ua_profile=259
SQL

$sth->execute;

#my %parameters = $sth->fetchrow_array();

foreach ($sth->fetchrow_array()){
    print "$_\n";
}