Select Code to Download

while (<STDIN>) { ... }
while (readline(STDIN)) { ...}
...
while (<*.c>) { ... }

are equivalent to: my @list = glob("*.c"); for (@list) { ... };