Select Code to Download

my $filename = shift // die "Usage: $0 <filename | ->\n";

my $fh = *STDIN;
...
while (<$fh>) {
    # Process lines of input
}

use 5.012;
use warnings;
use autodie;
...
open STDIN, '<', $filename if $filename ne '-';

while (<STDIN>) { ... }