in reply to "Resetting" a file handle

seek(FH,0,0);

[download]
Also, look into tell

Jeff 

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)

In Section Seekers of Perl Wisdom