$flen = -s $file;          # file length in bytes
$from = 42;                # insertion point

open FILE, '+<the/file.ext' or die "Couldn't open file: $!";
read FILE, $buf, ($flen - $from), $from;
seek FILE, $from, 0;
print FILE 'blahblahblah', $buf;