# ctrl -c to exit (this is only example code!!!)
while (<> and 1) {
    print "\$_ = <$_>\n";
}