#!/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";

 #alles vor der Einfügeposition merken
 my $vor='';
 ($vor.=<$data>)for(1..$line);

 #rest in ein String packen
 local $/=undef;
 my $rest=<$data>;
 
 # zum Anfang gehen und Daten schreiben
 seek($data,0,0);
 print $data $vor.$newdata.$rest;

 close($data);
}