Select Code to Download

use DBIx::Easy;

...
        }
        print "\n";
}

package DBIx::Easy;
use strict;
...
        my $self = shift;
        $self->{'dbh'}->disconnect();
}