sub readZip { local $_; open local *FH, '/dev/null'; while () { print "Got something!\n"; } }