unshift(@ARGV, '-') unless @ARGV;
while ($ARGV = shift) {
    open(ARGV, $ARGV);
    while ($_ = readline(<ARGV>)) {
        # do something with $_
    }
}