*iter = (@ARGV || -t STDIN) ? sub { shift @ARGV } : sub { <STDIN> };
while (defined(my $in = iter() )) {
}