来，试试PERL

#!/usr/bin/perl

print "hello, world!\n";

$line = <STDIN>;
if ($line eq "\n") {
    print "That was just a blank line!\n";
}else {
    print "That line of input was: $line";
}
$count = 0;
while ($count < 10) {
    $count += 2;
    print "count is now $count\n";
}

$madonna = <STDIN>;
if ( defined($madonna) ) {
    print "The input was $madonna";
} else {
    print "No input available!\n";
}