gistfile1.txt

    $session->db->dbh->begin_work;
    $session->db->dbh->do(qq{ CREATE TEMPORARY TABLE user_temp SELECT userId, username FROM users } );
    $session->db->dbh->do(qq{ INSERT INTO user_temp SELECT 'foo', 'bar' } );
    my $sth = $session->db->dbh->prepare( qq { SELECT * FROM user_temp } ) or die $DBI::errstr;
    $sth->execute;
    while( my $row = $sth->fetchrow_hashref ) {
        warn Data::Dumper::Dumper $row;
    }
    $session->db->dbh->commit;