Select Code to Download

my $dbhost = "legendenwelt.de"; 
my $dbuser = "USER"; 
my $dbpass = "XXXXX";
...
my $dbh = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost",
$dbuser, $dbpass,
{'RaiseError' => 1});