#!/usr/bin/perl
my $file=shift(@ARGV);
open(FILE,"+<$file") or die;
while (<FILE>) {
    if (eof(FILE)) {
       seek(FILE,-(length($_)),2) or die("$!\n");
       print FILE "replacement string\n";
       last;
    }
}
close FILE;