Thanks for the help. For now, I'm going to record the orignal file position on entry to the sub & restore it on exit.

#...
my $pos=tell(FH);
#...
seek(FH,$pos,0);
return
[download]

The file handle duplicating thing looks interesting though...

update: fixed dumb semantic error