#!/usr/bin/perl -w
use strict;
use DBI;

my $dbfile = 'C:/db/employee.db';
my $dbh    = DBI->connect(
    "dbi:SQLite:dbname=$dbfile",
    "", "",
    {
        RaiseError        => 1,
        AutoCommit        => 0,
    }
);

my $sql = q{
    select e.*
    from   employees e,
           groups g
    where  e.sam_account_name = g.sam_account_name
    and    g.group_name = 'Group Name'
    order by last_name, first_name
};

foreach my $emp (@{$dbh->selectall_arrayref($sql, {Slice => {}})}) {
    printf(
        "\t\t%-15s %-15s: (%s)\n",
        $emp->{first_name},
        $emp->{last_name},
        $emp->{sam_account_name},
    );
}

$dbh->rollback;