$class->neu(%in3);

sub neu { 
  my ($class,%neu) = @_;

  print "Content-type: text/html ";
  print $neu{firma};
}