Echo I

echo2.pl

Echo III

use strict;

# Echo input to output, letting STDIN default.
while(my $fred = <>) {
    print $fred;
}

Echo I

Echo III