use strict;
use warnings;
use DBI;

binmode(STDOUT , ":encoding(cp437)" );

my $user		= 'klaus';
my $pass		= 'dieter';
my $dns		= 'Hamster';
my $driver	= "DBI:ODBC:$dns";

my $dbh = DBI->connect($driver,$user,$pass, { RaiseError => 0, AutoCommit => 0 })|| die 
"Database connection not made: $DBI::errstr";


my $sth = $dbh->prepare( "delete from hamster", undef);
$sth->execute();

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