8.17. Diamond operator

Example 8-12. examples/arrays/diamond.pl

#!/usr/bin/perl
use strict;
use warnings;

while (my $line = <>) {
    print $line;
}