use strict;
use warnings;
use DBI;

my $DBH = dbh() or die $@;
my $story = qq(Otto und Franz gehen mit dem Hund Foo spazieren und treffen Boo); #<--- Brauch ich das?

# Ohne Fehlerbehandlung
$DBH->do("SELECT * FROM table_SOP...", {}, $story);

# Mit Fehlerbehandlung
eval{
        $DBH->do("SELECT * FROM table_SOP...", {}, $story);
};
# Frage $@ ab ob es einen Fehler gab.
# --->Ist Fehlerbehandlung bei select statement möglich/nötig???

sub dbh{
        my %cfg = (
                base => 'myweb',
                host => 'localhost',
                port => 3306,
                user => 'name...',
                pass => 'pw...',

        @_);
        return eval{
                DBI->connect("DBI:mysql:$cfg{base}:$cfg{host}:$cfg{port}", $cfg{user}, $cfg{pass},
                        {RaiseError => 1, PrintError => 0}
                );
        };
}


#Hier sollen die Daten an die Textarea übergeben werden?!
#Habe nur leider keine Ahnung wie genau ich das bewerkstelligen soll.

echo "<textarea>";

while($row = mysql_fetch_array($result))
  {
  echo "<textarea>" . $row['SOP'] . "</textarea>";
  }