seek (INPUT, tell (INPUT) - $last, 1);