#!/bin/perl
use strict;
use mysql;
use CGI qw(:standard);
my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1});
print header();
print "\n";
print "\n";
print "\n";
print "\n";
$dbh->do("delete from alerts_log");
print "
Alerts_log geleert!\n";
print "\n";
print "\n";