open my $fh, "<", "datei" or die $!;
my $body = 0;
while (<$fh>) {
    if ($body) {
        print
    }
    else {
        $body = 1 if m/^$/;
    }
}