Re: Stream and Atom flexibility

[hipowls]

You could do something like

if (@ARGV) {
    process($_) for @ARGV;
}
else {
    while (<>) {
        process($_);
    }
}

where sub process does the real work.