or download this
-n causes Perl to assume the following loop around your
program, which makes it iterate over filename
arguments somewhat like sed -n or awk:
...
"BEGIN" and "END" blocks may be used to capture
control before or after the implicit loop, just as in
awk.