#!/usr/bin/perl

use strict;
use warnings;

my $file='test.txt';
my $line=30;
my $newdata=<<EOF;
neue zeile 1
neue zeile 2
neue zeile 3
neue zeile 4
neue zeile 5
neue zeile 6
neue zeile 7
neue zeile 8
neue zeile 9
EOF

{
 open(my $data, '+<', $file) or die "konnte $file nicht öffnen ($!)\n";

 #Zeile $line finden und Zeilenposition merken
 <$data> for(1..$line);
 my $pos=tell($data);

 #rest in ein String packen
 local $/=undef;
 my $rest=<$data>;
 
 # zur gemerkten Position gehen und neue Datan einfügen
 seek($data,$pos,0);
 print $data $newdata.$rest;

 close($data);
}