# $data sind die Daten, welche vom Browser gesendet werden
HTML::Entities::decode($data);

# Version abfragen
if ($^V < 5.008) { # älter als Perl 5.8
  open(my $dbase, ">", "mydbase.txt")) or die($!);
}
if ($^V >= 5.008) { # neuer oder Perl 5.8
  open(my $dbase, ">:encoding(iso-8859-1)", "mydbase.txt")) or die($!);
}