#! /usr/bin/perl -w

if( 0 ) {
    my $ans = <>;
    chomp $ans;
    print "You typed: $ans\n";
}

if( 0 ) {
    my @ans = <>;
    chomp @ans;
    foreach $line (@ans) {
	print "You typed: $line\n";
    }
}

if( 0 ) {
    while( ($ans = <>) ) {
	chomp $ans;
	print "You typed: $ans\n";
    }
}

if( 1 ) {
    while( <> ) {
	chomp;
	print "You typed: $_\n";
    }
}
