Perl "use"

[Kim Armann <kim@nichols.de>]

Hi, I want to make an SQL-Connect with embedded Perl to a MySQL database
like
<PRE mv=perl>
        use DBI;
        $dbart = 'mysql';
        $dbname = 'xxx';
        $dbuser = 'minivend';
        $dbpass = 'xxx';
        $db = DBI->connect ($dbname, $dbuser, $dbpass, $dbart);
        if (!$db)       { return "Kann nicht verbinden $DBI::errstr\n";
}
	else ....
</PRE>
but I get 
.../search Safe: require trapped by operation mask at (eval 78) line 2.
what does it mean? I tried with $Safe{DBI}; ... but no result.

  Kim Armann