@tables = ("TONES", "OFCENG", "EASAC");
    foreach $table (@tables)
    {
        $exp->expect(180,
            [ qr/>/i, sub { my $self = shift;
                    sleep(1);
                    $self->send("TABLE $table; FORMAT 132 PACK\r");
                    }],
            [ qr/UNKNOWN TABLE/i, sub { my $self = shift;
                    sleep(1);
                    $self->send("")ort\r");
                    next; }],
            [ qr/TABLE: $table/i, sub { my $self = shift;
                    $self->send("");
                    }],
            [ qr/The first column/i, sub { my $self = shift;
                    sleep(1);
                    $self->send("LIS ALL\r");
                    }],
            [ qr/EMPTY TABLE/i, sub { my $self = shift;
                    sleep(1);
                    next; }],
            [ qr/TOP/i, sub { my $self = shift;
                    $self->send("");
                    }],
            [ qr/BOTTOM/i, sub { my $self = shift;
                    sleep(1);
                    $self->send("quit all\r"); }],
        );
    }