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