Help for this page

Select Code to Download

Select or download this

while (my $line = <>) {
    utf8::decode( $line );
    ...
}