Select Code to Download

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