$objekt->del_column(column => $spalte) or errormessage($@);
...
...
sub errormessage {
    print "************Error************\n";
    print @_;
}