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