seek (INPUT, $last, 0)

##</code><code>##

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