Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
}

1;
  2. or download this
    use strict;
use warnings;
...

our $LOG = open_file('log.txt');  # 'my' instead of 'our' also works
while (<$LOG>) { print; }
  3. or download this
    use strict;
use warnings;
...
}

1;
  4. or download this
    use strict;
use warnings;
...

*LOG = open_file('log.txt');
while (<LOG>) { print; }