my $dbh = &db_open("portal", "root", "pass");
my $sth = &db_abfrage($dbh, "SELECT ps_id, ps_mainside, ps_mainname FROM portalsides");

#Update
my $sql = "UPDATE portalsides SET ps_mainside = '".$mainside."' WHERE ps_id = '".$id."'";
$dbh->do($sql) or die("Daten konnte nicht gespeichert werden. $DBI::errstr");

#Insert
my $sql = qq|INSERT INTO portalsides (ps_mainside, ps_mainname) VALUES ('$mainside', '$mainname')|;
$dbh->do($sql) or die("Daten konnte nicht gespeichert werden. $DBI::errstr");

#Delete
my $sql = qq|DELETE FROM portalsides WHERE ps_id=$id|;
$dbh->do($sql) or die("Session konnte nicht gespeichert werden. $DBI::errstr");

#Ausgabe Beispiel 
my $allref = $dbh->selectall_arrayref($sth, { Slice=>[] });
foreach my $psides (@$allref) {
$html{'home'} .= $psides->[1];
}

#Sub_R.
sub db_open {
my ($db, $user, $passwort) = @_;
my $dsn = "DBI:mysql:database=$db";
my $dbh = DBI->connect($dsn, $user, $passwort);
die ("Verbindung zur Datenbank konnte nicht hergestellt werden:\n$DBI::errstr") if (!defined($dbh) or $dbh eq "");
return $dbh;
}

sub db_abfrage {
my $dbh = shift;
my $sql = shift;
my $sth = $dbh->prepare("$sql") or die($dbh->errstr);
$sth->execute or die($sth->errstr);
return $sth;
}