use strict;
    while ($str = <>) {
        print lc $str;
    }