my $dbh = DBI->connect('dbi:Sybase:server=the_server', $user, $password);
$dbh->do("use Reportingdb");  # guessing from your error message