Select Code to Download

my @input_list = <>;
chomp @input_list;
...
for my $item ( @input_list ) {  ## instead of "while (1)"
     ...  # do what needs to be done without further directions from u
+ser
}

if ( @ARGV == 0 and -t ) {
    die "Usage: $0  list.file   or some_command | $0\n";