#!/usr/bin/perl

        use EZDBI 'mysql:test' => 'user', 'password';

        Insert 'into names', 'Harry', 'Potter';

        if (Select "* from names where first = 'Harry'") {
          print "Potter is IN THE HOUSE.\n";
        }

        for (Select 'last from names') {
          next if $seen{$_}++;
          my @first = Select 'first from names where last = ?', $_;
          print "$_: @first\n";
        }

        Delete "from names where last='Potter'";

        if (Select "* from names where last = 'Potter'") {
          die "Can't get rid of that damn Harry Potter!";
        }