# while (defined(my $line = <ARGV>)) {
        #     ...
        # }