Select Code to Download

#!/usr/bin/perl -w

...
my $password = 'no4vista';

my $conn = DBI->connect($dsn,$user,$password) || die "Error connecting
+". DBI->errstr;

root@adam-laptop:/home/adam/Desktop# perl db.pl
DBI connect('firstDB','adam',...) failed: Access denied for user 'adam
+'@'localhost' (using password: YES) at db.pl line 9
Error connectingAccess denied for user 'adam'@'localhost' (using passw
+ord: YES) at db.pl line 9.