Help for this page

Select Code to Download

Select or download this

use 5.18.2;
use warnings;
...
    }
say "\nFinished reading file: $source Closing file! Goodbye!";
close $in or die "Can not close file: $source: $!\n";