#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect(
    'DBI:mysql:database=app;host=localhost',
    'user', 'pass',
    { RaiseError => 1, AutoCommit => 1 }
);

my $sth = $dbh->prepare('SELECT id, name FROM users WHERE active = ?');
$sth->execute(1);

while (my $row = $sth->fetchrow_hashref) {
    print "$row->{id}\t$row->{name}\n";
}
$dbh->disconnect;