Thank you. I do want to note that my code didn't show up properly and the while() isn't empty as it seems. However, you, being a wise perl wisdom-giver have correctly figured out what it actually contains. Just for grins, here it is again with the code tags:

#!/usr/local/bin/perl

$home="/home/epcom";
$log="$home/access-mc";
$savelog="$home/log/access-mc";

open (LOGF,"$log") || die "[45]Open Error $log";
open (SAVEF,">>$savelog") || die "[45]Open Error $savelog";
close (SAVEF);
open (SAVEF,"$savelog");
while (<SAVEF>) {
        $last=$_ if eof();
# holding me up until Enter is pressed at the eof()
}
close (SAVEF);

$lineno = 0;
if ($last =~ /^....*/) {
        chop $last;
        while (<LOGF>) {

                if (m/\Q$last/) {
                        $lineno = $.;
                }
        }
}
close (LOGF);
open (SAVEF,">>$savelog");
open (LOGF,"$log");
while (<LOGF>) {
        print SAVEF if ($. > $lineno && ! /\.jpg|\.gif/ ) ;
}
close (SAVEF);
close (LOGF);
exit 0;
[download]

Thanks very much. I will follow up on your excellent suggestions and no doubt get the script working soon. Using eof() was the only way I knew to get the last line of the file. Thanks for pointing me to the better methods.