. . .
} elsif ($#filenames < 0 && ! -t STDIN) {
    unshift(@filenames, '/dev/stdin')
}

. . .