Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use File::Slurp qw/read_file/;
...
        return 1;
    }
}