Select Code to Download

my @ids = do { @ARGV || -t STDIN ? @ARGV : <STDIN> };
chomp @ids;

my $fh;
if (@ARGV || -t STDIN) {
...
while (defined(my $id = <$fh>)) {
    chomp $id;
}