use strict;                             # security
use diagnostics;                        # make more detailled -w
use DBI;                                # for the database-stuff...
my $dbhost = "x.y.z.a";           # on this host is the db
my $dbname = "db";                               # name of data base
my $dbreaduser = "read";                            # read login name for db
my $dbreadpass = "password";                           # read pw for db

my $filerdb = DBI->connect("dbi:mysql:$dbname;host=$dbhost", "$dbreaduser", "$dbreadpass") or die $DBI::errstr;