In Perl the following code will read from file specified on command line args or from stdin? while () { ...
stackoverflow.com