Select Code to Download

my $obj = CLASSNAME->new(
              -server => "mysql:server=xxxx;database=xxxx",
              -user => "xxxx",
              -pass => "xxxx" );

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

$sth->finish;
$dbh->disconnect;