my $File_Loc = 0; my $SaveLocFile = "./FileLoc";
  if ( -e $SaveLocFile )
  {   open( my $IN, "<", $SaveLocFile ) or die "File Bad $!";
      $File_Loc = < $IN >; chomp ( $File_Loc );
      close $IN;
  }

  my $sz = ( -s $SaveLocFile );
  if ($sz > 0)
  {  open( my $log, "<", $log_file");          ## This should be log file
     if ($sz < $File_Loc ) { $File_Loc = 0; }  ## New log file
     seek $log, $File_Loc, 0;                  ## Move to old end of file
     while ( < $log > )
     {   chomp;
         my $line = $_;
         # do work 
      }

      $File_Loc = tell $log;      ## Save current end-of-file location
      open( my $OUT,">", $SaveLocFile );
      print $OUT "$File_Loc\n";
      close $OUT;
      close $log;
    }