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