#!/usr/bin/perl

use strict;
use warnings;
use Kladde; # Groß/Kleinschreibung beachten!

# Credentials für mysql
my %myopts = (
  user => '',
  pass => '',
  base => 'datenbankname',
  tabn => 'tabellenname',
);
my $dbo = Kladde->new(%myopts) or die $@;
$dbo->create_table or die $@;
$dbo->drop_table or die $@;