programming-examples/perl/Statement/Using while statement to read from keyboard.pl

while ($temp = <STDIN>) {
    print $temp;
}