sub getdata{
open FH, "<$datei" or die "$!";
undef $/;
my $data = <FH>;
close FH;
}