While Loop

echo1.pl

Echo II

use strict;

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

While Loop

Echo II