my $test;
open FH, "<datei.txt";
$test=<FH>
  print $test;