tie @in, 'Tie::File', shift @ARGV; for(@in)