比如在特定行后插入
insert('a.txt', 3, "abcd\n");
sub insert {
	my ($file, $line, $data) = @_;
	my $h;
	open $h, $file || return;
	my @cont = <$h>;
	close $h;
	if (@cont >= $line) {
		open $h, ">$file" || return;
		print $h join("", @cont[0..$line-1]);
		print $h $data;
		if ($line < @cont) {
			print $h join("", @cont[$line..$#cont]);
		}
		close $h;
	}
}