Assuming that FH is a filehandle to a "real" file and not something like a pipe you can just do:

  seek FH,0,0;
[download]

See the seek documents in perlfunc for more info...