my $len = (-s "file.txt") || 0;
    system ("perl eck.pl $var > file.txt &");

    # ... later ....
    my $newlen = (-s "file.txt") || 0;

    if ($newlen > $len) {
        my @newlines = read_new_lines("file.txt", $len);
        $len = $newlen;  # Adjust length to new end of file
    }

##</code><code>##

    sub read_new_lines {
        my ($fn, $offset) = @_;
        use IO::File;
        my $fh = new IO::File($fn);
        $fh or die "Failed to read '$fn' ($!)\n";
        seek($fh, $offset, 1) or die "Failed seek ($!)\n";
        chomp(my @lines = <$fh>);
        return (@lines);
    }