DBI:ORACLE

[Lorenzo Caggioni]

HI!!!
i'm tring to use DBI module

Here is the code

#!/geneva/geneva/dev1/perl5/bin/perl
#

use strict;
use DBI;
use warnings;

my $dbh = DBI->connect( 'dbi:Oracle:MYSEED,
                        'donald',
                        'duck',
                        {
                          RaiseError => 1,
                          AutoCommit => 0
                        }
                      ) or print "Database connection not made: $DBI::errstr
\n";

print " \n THE END \n \n";

If the username and password is correct it works fine, but if they are
incorrect the program doesn't print the error message and it die...

What's wrong?

Thanks

Lorenzo