sub FILEWRITE{
  $erfolg = open(OUTFILE, ">test.txt");
  if(!$erfolg){
    print "kann daten nicht &”ffnen \n";
    exit 1;
  }
  print OUTFILE " hallo weltadfasdf; test \n";
  close OUTFILE;
  $test = Alles Erfolgreich;
  return $test;
}

sub MAX{
  my $x = $_[0];
  my $y = $_[1];
  if($x>$y){
    return $x;
  }else{
    return $y;
  }
}