use DBI;
sub AUTOLOAD {

    my $self = shift;

    our $AUTOLOAD;
    print "Attempt to call $AUTOLOAD failed.\n";
    exit(1);
}