<form action="http://www.domain.de/cgi-bin/free.cgi" method="post">
          <input type="hidden" name="Objnr=" value="$Objnr">
          <input type="submit" name="Abschicken" value="online Bilder übertragen">
        </form>

if($ENV{'REQUEST_METHOD'} eq 'GET')
{
  $eingabe = $ENV{'QUERY_STRING'};
}
# Übertragungsmethode POST
else
{
  read(STDIN, $eingabe, $ENV{'CONTENT_LENGTH'});
}
# Wertepaare trennen
@paare = split(/&/, $eingabe);
foreach $paar (@paare)
{
   ($schluessel, $wert) = split(/=/, $paar);
   # Sonderzeichen ersetzen
   $wert =~ tr/+/ /;
   $wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",   hex($1))/eg;
   # Hash mit Daten erstellen
   $FORM{$schluessel} = $wert;
}
# HTML-Ausgabe vorbereiten

while(@array=each(%FORM))
{
  print "$array[0]: $array[1]<br>";
}
print "</body></html>";

{
  print "????????";
}